where
import Control.Monad
-import Control.Monad.Trans
import DDNS.Utils
import DDNS.Zone
import Database.HaskellDB
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