]> gitweb @ CieloNegro.org - blackboard-dns.git/blob - DDNS/Server/EditZone.hs
44120ebaca7168248752e38defeae6496ea896a4
[blackboard-dns.git] / 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