X-Git-Url: http://www.average.org/gitweb/?p=pdns-pipe-nmc.git;a=blobdiff_plain;f=PowerDns.hs;h=ece3ac79a5dadb4d96469bfcbb77ea2d776afdcc;hp=457cdcae5b3be03b3160b0dc1f87e38b6b015bc6;hb=aa91db8940672a57169b1bb400fa3c1a1e9dd335;hpb=946bf9517524052ccb0cfa9ee2568c76848c49d2

diff --git a/PowerDns.hs b/PowerDns.hs
index 457cdca..ece3ac7 100644
--- a/PowerDns.hs
+++ b/PowerDns.hs
@@ -9,6 +9,7 @@ module PowerDns ( RRType(..)
 
 import Data.Text.Lazy (splitOn, pack)
 import Data.Map.Lazy (foldrWithKey)
+import Data.Default.Class (def)
 
 import NmcDom
 
@@ -177,7 +178,7 @@ dataRR RRTypeSOA   = \ gen name dom ->
       Nothing   -> "hostmaster." ++ name ++ "."
       Just addr -> dotmail addr
   in
-    if dom == emptyNmcDom then []
+    if dom == def then []
     else
     -- Follows a relatively ugly hack to figure if we are at the top
     -- level domain ("something.bit"). Only in such case we provide