DDNS/Server/EditZone.hs

   1 module DDNS.Server.EditZone
   2     ( editZone
   3     )
   4     where
   5
   6 import           Control.Monad
   7 import           DDNS.Utils
   8 import           DDNS.Zone
   9 import           Database.HaskellDB
  10 import           System.Console.Haskeline
  11
  12 editZone :: Database -> IO ()
  13 editZone db
  14     = do zone <- runInputT (setComplete (completeZoneName db) defaultSettings) $
  15                  do name <- getInputLine' "Which zone do you want to edit (or create?): "
  16                     return $ read name
  17          soa <- getZone db zone
  18          print soa