From 210d8f77fda5feed1c77007b60c2f67430d5e8c3 Mon Sep 17 00:00:00 2001 From: Simon Michael Date: Tue, 20 Jan 2009 06:11:01 +0000 Subject: [PATCH] better happs startup message --- HappsCommand.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/HappsCommand.hs b/HappsCommand.hs index 6a38ca4aa..30adfcba5 100644 --- 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 ]