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

web: fix a bug probably affecting reload-on-change

Browse Source
This commit is contained in:
Simon Michael 2010-05-23 21:49:44 +00:00
parent 7dbcb035bb
commit 536c44740e
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Hledger/Cli/Commands/Web.hs
View File

@ -81,10 +81,8 @@ server opts args j =
#endif #endif
\env -> do -- IO Response \env -> do -- IO Response
-- general request handler -- general request handler
let a = intercalate "+" $ map decodeString $ reqParamUtf8 env "a" let opts' = opts ++ [Period $ unwords $ map decodeString $ reqParamUtf8 env "p"]
p = intercalate "+" $ map decodeString $ reqParamUtf8 env "p" args' = args ++ map decodeString (reqParamUtf8 env "a")
opts' = opts ++ [Period p]
args' = args ++ words a
j' <- fromJust `fmap` getValue "hledger" "journal" j' <- fromJust `fmap` getValue "hledger" "journal"
j'' <- journalReloadIfChanged opts' args' j' j'' <- journalReloadIfChanged opts' args' j'
-- declare path-specific request handlers -- declare path-specific request handlers