Split commands off

[blackboard-dns.git] / DDNS / Server / EditZone.hs

diff --git a/DDNS/Server/EditZone.hs b/DDNS/Server/EditZone.hs
new file mode 100644 (file)
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 ()