module DDNS.Server.EditZone
    ( editZone
    )
    where

import           Control.Monad
import           Control.Monad.Trans
import           DDNS.Utils
import           DDNS.Zone
import           Database.HaskellDB
import           System.Console.Haskeline

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 ()