Code cleanup

[blackboard-dns.git] / DDNS / Client / MakeReq.hs

diff --git a/DDNS/Client/MakeReq.hs b/DDNS/Client/MakeReq.hs
index b9baa49c5b7eb31e99fd0cc5fb4a31c1f3b64a6c..57140441c6e8596b4b990c4b78830f98c518eee9 100644 (file)
--- 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