editzone

[blackboard-dns.git] / DDNS / Server.hs

diff --git a/DDNS/Server.hs b/DDNS/Server.hs
index c1e85407ac6c7e84429f861becead021f5ad6db2..ef40f59a92acad678bf4901a46c10e8d83fb9ab0 100644 (file)
--- 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..."