Code cleanup

[blackboard-dns.git] / DDNS / Server.hs

diff --git a/DDNS/Server.hs b/DDNS/Server.hs
index aedeadd1889ab6d5649c666f8ec1d90438b78593..c1e85407ac6c7e84429f861becead021f5ad6db2 100644 (file)
--- a/DDNS/Server.hs
+++ b/DDNS/Server.hs
@@ -38,10 +38,9 @@ ensureWeHaveKeypair lsdir
            else
              do fqdn <- runInputT defaultSettings $
                         do defaultFqdn <- liftM uNodeName $ liftIO uname
-                           fqdn        <- getInputLine ("What's your FQDN? (default: " ++ defaultFqdn ++ "): ")
-                           case trim fqdn of
-                             Just s -> return s
-                             _      -> return defaultFqdn
+                           getInputLineWithDefault
+                               ("What's your FQDN? (default: " ++ defaultFqdn ++ "): ")
+                               defaultFqdn
 
                 putStrLn "Generating RSA keypair..."
                 key <- generateRSAKey 1024 3 Nothing