Response builder

[haskell-dns.git] / Network / DNS / Named / Zone.hs

diff --git a/Network/DNS/Named/Zone.hs b/Network/DNS/Named/Zone.hs
index da27c3e694ab13c669bb5b2d8ee3d0c649fcceae..8311376661bf5b506d951f802234448aab79e677 100644 (file)
--- a/Network/DNS/Named/Zone.hs
+++ b/Network/DNS/Named/Zone.hs
@@ -34,4 +34,8 @@ instance ZoneFinder (DomainName -> IO (Maybe Zone)) where
 
 
 defaultRootZone :: Zone
-defaultRootZone = error "FIXME: defaultRootZone is not implemented yet"
\ No newline at end of file
+defaultRootZone
+    = Zone {
+        zoneName       = mkDomainName "."
+      , zoneResponders = [] -- FIXME
+      }