X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=blackboard-dns.git;a=blobdiff_plain;f=DDNS%2FClient%2FMakeReq.hs;h=57140441c6e8596b4b990c4b78830f98c518eee9;hp=b9baa49c5b7eb31e99fd0cc5fb4a31c1f3b64a6c;hb=1abf9ad51c79257c0bce8e134fdd48a2ff0ef373;hpb=20021ec127c5574db472d88ff47cbf7e656969f4

diff --git a/DDNS/Client/MakeReq.hs b/DDNS/Client/MakeReq.hs
index b9baa49..5714044 100644
--- a/DDNS/Client/MakeReq.hs
+++ b/DDNS/Client/MakeReq.hs
@@ -18,10 +18,9 @@ makeReq :: IO ()
 makeReq
     = 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