1 module DDNS.Server.EditZone
9 import Database.HaskellDB
10 import System.Console.Haskeline
12 editZone :: Database -> IO ()
14 = do zone <- runInputT (setComplete (completeZoneName db) defaultSettings) $
15 do name <- getInputLine' "Which zone do you want to edit (or create?): "
17 soa <- getZone db zone