unnecessary show

This commit is contained in:
Simon Michael 2009-04-03 21:03:03 +00:00
parent 8e5640b432
commit db89918b56
2 changed files with 1 additions and 2 deletions

1
NOTES
View File

@ -18,7 +18,6 @@ We aim to make reliable, maintainable, usable software, sustainably.
* to do * to do
** errors ** errors
*** hledger web & gives an error ?
** testing ** testing
*** run ledger 3 baseline tests *** run ledger 3 baseline tests
*** test all ledger file format features *** test all ledger file format features

View File

@ -40,7 +40,7 @@ web opts args l =
putStrLn $ printf "starting web server on port %d" tcpport putStrLn $ printf "starting web server on port %d" tcpport
tid <- forkIO $ simpleHTTP nullConf{port=tcpport} handlers tid <- forkIO $ simpleHTTP nullConf{port=tcpport} handlers
putStrLn "starting web browser" putStrLn "starting web browser"
openBrowserOn $ printf "http://localhost:%s/balance" (show tcpport) openBrowserOn $ printf "http://localhost:%d/balance" tcpport
waitForTermination waitForTermination
putStrLn "shutting down web server..." putStrLn "shutting down web server..."
killThread tid killThread tid