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