slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

better happs startup message

Browse Source
This commit is contained in:
Simon Michael 2009-01-20 06:11:01 +00:00
parent 1f41009f9a
commit 210d8f77fd
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
HappsCommand.hs
View File

@ -32,7 +32,7 @@ tcpport = 5000
happs :: [Opt] -> [String] -> Ledger -> IO () happs :: [Opt] -> [String] -> Ledger -> IO ()
happs opts args l = do 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} [ simpleHTTP nullConf{port=tcpport} [
method GET $ ok $ toResponse $ output method GET $ ok $ toResponse $ output
] ]