better happs startup message

2009-01-20 06:11:01 +00:00 · 2009-01-20 06:11:01 +00:00 · 210d8f77fd
commit 210d8f77fd
parent 1f41009f9a
1 changed files with 1 additions and 1 deletions
--- a/HappsCommand.hs
+++ b/HappsCommand.hs
@ -32,7 +32,7 @@ tcpport = 5000

 happs :: [Opt] -> [String] -> Ledger -> IO ()
 happs opts args l = do
-  putStrLn $ printf "hledger server running on port %d" tcpport
+  putStrLn $ printf "starting hledger server on port %d" tcpport
  simpleHTTP nullConf{port=tcpport} [
                     method GET $ ok $ toResponse $ output
                    ]