X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=haskell-dns.git;a=blobdiff_plain;f=ExampleDNSServer.hs;fp=ExampleDNSServer.hs;h=9e1b4cd9393f846c304d641394c9206741880f94;hp=0000000000000000000000000000000000000000;hb=5d250da422c01c7aab948ebdda5ef618f18e0f39;hpb=c298a2352893e8839680e38f73cb2015d16dc87d

diff --git a/ExampleDNSServer.hs b/ExampleDNSServer.hs
new file mode 100644
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