X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=blackboard-dns.git;a=blobdiff_plain;f=DDNS%2FServer.hs;h=ef40f59a92acad678bf4901a46c10e8d83fb9ab0;hp=c1e85407ac6c7e84429f861becead021f5ad6db2;hb=22ba80d23ad59661c90bd5a77305b16c417b153b;hpb=1abf9ad51c79257c0bce8e134fdd48a2ff0ef373 diff --git a/DDNS/Server.hs b/DDNS/Server.hs index c1e8540..ef40f59 100644 --- a/DDNS/Server.hs +++ b/DDNS/Server.hs @@ -39,7 +39,7 @@ ensureWeHaveKeypair lsdir 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..."