X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=blackboard-dns.git;a=blobdiff_plain;f=DDNS%2FServer.hs;fp=DDNS%2FServer.hs;h=c1e85407ac6c7e84429f861becead021f5ad6db2;hp=aedeadd1889ab6d5649c666f8ec1d90438b78593;hb=1abf9ad51c79257c0bce8e134fdd48a2ff0ef373;hpb=20021ec127c5574db472d88ff47cbf7e656969f4

diff --git a/DDNS/Server.hs b/DDNS/Server.hs
index aedeadd..c1e8540 100644
--- 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