1 module DDNS.Server.EditZone
7 import Control.Monad.Trans
10 import Database.HaskellDB
11 import System.Console.Haskeline
13 editZone :: Database -> IO ()
15 = runInputT (setComplete (completeZoneName db) defaultSettings) $
16 do zoneNameStr <- getInputLine "Which zone do you want to edit (or create?): "
17 case trim zoneNameStr of
20 do --let zone = read zoneNameStr'