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

web: clean up warnings

Browse Source
This commit is contained in:
Simon Michael 2014-10-18 10:35:04 -07:00
parent 2b39f68682
commit c2644f4c48
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
hledger-web/Handler/Post.hs
View File

@ -46,7 +46,7 @@ handleAdd = do
) )
mjournal mjournal
estrs = [edate, edesc, ejournal] estrs = [edate, edesc, ejournal]
(errs1, [date,desc,journalpath]) = (lefts estrs, rights estrs) -- XXX irrefutable (errs1, [date,desc,journalpath]) = (lefts estrs, rights estrs)
(params,_) <- runRequestBody (params,_) <- runRequestBody
-- mtrace params -- mtrace params
let paramnamep s = do {string s; n <- many1 digit; eof; return (read n :: Int)} let paramnamep s = do {string s; n <- many1 digit; eof; return (read n :: Int)}
@ -142,7 +142,7 @@ handleEdit = do
(\f -> let f' = unpack f in (\f -> let f' = unpack f in
if f' `elem` journalFilePaths j if f' `elem` journalFilePaths j
then Right f' then Right f'
else Left "unrecognised journal file path") else Left ("unrecognised journal file path"::String))
mjournal mjournal
estrs = [etext, ejournal] estrs = [etext, ejournal]
errs = lefts estrs errs = lefts estrs