simonmichael/hledger
1
1
Fork 0
mirror of https://github.com/simonmichael/hledger.git synced 2024-09-19 18:29:36 +03:00
Code Issues 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
estrs = [edate, edesc, ejournal]
(errs1, [date,desc,journalpath]) = (lefts estrs, rights estrs) -- XXX irrefutable
(errs1, [date,desc,journalpath]) = (lefts estrs, rights estrs)
(params,_) <- runRequestBody
-- mtrace params
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
if f' `elem` journalFilePaths j
then Right f'
else Left "unrecognised journal file path")
else Left ("unrecognised journal file path"::String))
mjournal
estrs = [etext, ejournal]
errs = lefts estrs