simonmichael/hledger
1
1
Fork 0
mirror of https://github.com/simonmichael/hledger.git synced 2024-11-10 14:16:41 +03:00
Code Issues Projects Releases Wiki Activity

web: quick fix for bad localhost redirect

Browse Source
This commit is contained in:
Simon Michael 2009-09-23 22:32:52 +00:00
parent 40f61be1e3
commit 6d931ce54d
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Commands/Web.hs
View File

@ -134,7 +134,7 @@ server opts args l =
get "/params" $ getenv >>= (text . show . Hack.Contrib.Request.params)
get "/inputs" $ getenv >>= (text . show . Hack.Contrib.Request.inputs)
public (Just "Commands/Web") ["/static"]
get "/" $ redirect (homeurl++"balance") Nothing
get "/" $ redirect ("balance") Nothing
) env
ledgerpage :: [String] -> Ledger -> (Ledger -> String) -> AppUnit