X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=blackboard-dns.git;a=blobdiff_plain;f=DDNS%2FServer%2FEditZone.hs;fp=DDNS%2FServer%2FEditZone.hs;h=510d41540d9194fddd4fadda7626a166ae5a88d4;hp=0000000000000000000000000000000000000000;hb=20021ec127c5574db472d88ff47cbf7e656969f4;hpb=3674500cd498050a48d69d1d30a6139ba3ba88f5

diff --git a/DDNS/Server/EditZone.hs b/DDNS/Server/EditZone.hs
new file mode 100644
index 0000000..510d415
--- /dev/null
+++ b/DDNS/Server/EditZone.hs
@@ -0,0 +1,22 @@
+module DDNS.Server.EditZone
+    ( editZone
+    )
+    where
+
+import           Control.Monad
+import           Control.Monad.Trans
+import           DDNS.Utils
+import           DDNS.Zone
+import           Database.HaskellDB
+import           System.Console.Haskeline
+
+editZone :: Database -> IO ()
+editZone db
+    = runInputT (setComplete (completeZoneName db) defaultSettings) $
+      do zoneNameStr <- getInputLine "Which zone do you want to edit (or create?): "
+         case trim zoneNameStr of
+           Just zoneNameStr'
+               -> liftIO $
+                  do --let zone = read zoneNameStr'
+                     fail zoneNameStr'
+           _   -> return ()