DDNS/Server/EditZone.hs

   1 module DDNS.Server.EditZone
   2     ( editZone
   3     )
   4     where
   5
   6 import           Control.Monad
   7 import           Control.Monad.Trans
   8 import           DDNS.Utils
   9 import           DDNS.Zone
  10 import           Database.HaskellDB
  11 import           System.Console.Haskeline
  12
  13 editZone :: Database -> IO ()
  14 editZone db
  15     = runInputT (setComplete (completeZoneName db) defaultSettings) $
  16       do zoneNameStr <- getInputLine "Which zone do you want to edit (or create?): "
  17          case trim zoneNameStr of
  18            Just zoneNameStr'
  19                -> liftIO $
  20                   do --let zone = read zoneNameStr'
  21                      fail zoneNameStr'
  22            _   -> return ()