module DDNS.Server.EditZone
    ( editZone
    )
    where

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

editZone :: Database -> IO ()
editZone db
    = do zone <- runInputT (setComplete (completeZoneName db) defaultSettings) $
                 do name <- getInputLine' "Which zone do you want to edit (or create?): "
                    return $ read name
         soa <- getZone db zone
         print soa