Code cleanup

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

diff --git a/DDNS/Server/EditZone.hs b/DDNS/Server/EditZone.hs
index 510d41540d9194fddd4fadda7626a166ae5a88d4..44120ebaca7168248752e38defeae6496ea896a4 100644 (file)
--- a/DDNS/Server/EditZone.hs
+++ b/DDNS/Server/EditZone.hs
@@ -4,7 +4,6 @@ module DDNS.Server.EditZone
     where
 
 import           Control.Monad
-import           Control.Monad.Trans
 import           DDNS.Utils
 import           DDNS.Zone
 import           Database.HaskellDB
@@ -12,11 +11,8 @@ 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 ()
+    = do zone <- runInputT (setComplete (completeZoneName db) defaultSettings) $
+                 do name <- getInputLine' "Which zone do you want to edit (or create?): "
+                    return $ read name
+         soa <- getZone db zone
+         print soa