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=44120ebaca7168248752e38defeae6496ea896a4;hp=510d41540d9194fddd4fadda7626a166ae5a88d4;hb=1abf9ad51c79257c0bce8e134fdd48a2ff0ef373;hpb=20021ec127c5574db472d88ff47cbf7e656969f4

diff --git a/DDNS/Server/EditZone.hs b/DDNS/Server/EditZone.hs
index 510d415..44120eb 100644
--- 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