Started implementing Named part.

[haskell-dns.git] / ExampleDNSServer.hs

diff --git a/ExampleDNSServer.hs b/ExampleDNSServer.hs
new file mode 100644 (file)
index 0000000..9e1b4cd
--- /dev/null
+++ b/ExampleDNSServer.hs
@@ -0,0 +1,15 @@
+import           Network.DNS.Message
+import           Network.DNS.Named
+import           Network.DNS.Named.Config
+import           Network.Socket
+
+main :: IO ()
+main = runNamed cnf zoneFor
+    where
+      cnf :: Config
+      cnf = Config {
+              cnfServerAddress = SockAddrInet 9090 iNADDR_ANY
+            }
+
+      zoneFor :: DomainName -> Maybe Zone
+      zoneFor = const Nothing -- FIXME
\ No newline at end of file