do fqdn <- runInputT defaultSettings $
do defaultFqdn <- liftM uNodeName $ liftIO uname
getInputLineWithDefault
- ("What's your FQDN? (default: " ++ defaultFqdn ++ "): ")
+ ("What is the server FQDN? (default: " ++ defaultFqdn ++ "): ")
defaultFqdn
putStrLn "Generating RSA keypair..."