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

make the web server handle the null path

Browse Source
This commit is contained in:
Simon Michael 2009-04-03 11:19:04 +00:00
parent 8ba2163ccd
commit 3b7362861d
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
WebCommand.hs
View File

@ -50,7 +50,9 @@ web opts args l =
where where
handlers :: ServerPartT IO Response handlers :: ServerPartT IO Response
handlers = msum handlers = msum
[dir "print" $ withDataFn (look "a") $ \a -> templatise $ printreport [a] [methodSP GET $ withDataFn (look "a") $ \a -> templatise $ balancereport [a]
,methodSP GET $ templatise $ balancereport []
,dir "print" $ withDataFn (look "a") $ \a -> templatise $ printreport [a]
,dir "print" $ templatise $ printreport [] ,dir "print" $ templatise $ printreport []
,dir "register" $ withDataFn (look "a") $ \a -> templatise $ registerreport [a] ,dir "register" $ withDataFn (look "a") $ \a -> templatise $ registerreport [a]
,dir "register" $ templatise $ registerreport [] ,dir "register" $ templatise $ registerreport []