wip split subdoms in the parser

[pdns-pipe-nmc.git] / pdns-pipe-nmc.hs

diff --git a/pdns-pipe-nmc.hs b/pdns-pipe-nmc.hs
index 5fc64fa1c940c96bff85b47f80ec7bc65943b307..bbe89ab1ccea7025bcf06b7a5ab3cfb426dd2673 100644 (file)
--- a/pdns-pipe-nmc.hs
+++ b/pdns-pipe-nmc.hs
@@ -1,3 +1,4 @@
+{-# LANGUAGE CPP #-}
 {-# LANGUAGE OverloadedStrings #-}
 
 module Main where
@@ -21,9 +22,11 @@ import Data.Map.Lazy (Map, empty, lookup, insert, delete, size)
 import Data.Aeson (encode, decode, Value(..))
 import Network.HTTP.Types
 import Network.HTTP.Client
+#if MIN_VERSION_http_client(0,3,0)
 import Data.Default.Class (def)
--- if you have data-default-0.5.1 import this instead of Data.Default.Class:
--- import Data.Default (def)
+#else
+import Data.Default (def)
+#endif
 
 import JsonRpcClient
 import Config