X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=haskell-dns.git;a=blobdiff_plain;f=Network%2FDNS%2FNamed%2FZone.hs;h=8311376661bf5b506d951f802234448aab79e677;hp=da27c3e694ab13c669bb5b2d8ee3d0c649fcceae;hb=5015e5caa39e015e6ffa28a87fc5f189e7ba3c71;hpb=7a09a987b0369db0c013fb10272329c733ffc8a1

diff --git a/Network/DNS/Named/Zone.hs b/Network/DNS/Named/Zone.hs
index da27c3e..8311376 100644
--- 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
+      }