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

web: fix options breakage, add test code to tags

Browse Source
This commit is contained in:
Simon Michael 2015-08-28 15:23:49 -07:00
parent 9e9aec957f
commit 92038b7d72
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
hledger-lib/Hledger/Reports/ReportOptions.hs
View File

@ -150,7 +150,7 @@ rawOptsToReportOpts rawopts = checkReportOpts <$> do
,monthly_ = boolopt "monthly" rawopts ,monthly_ = boolopt "monthly" rawopts
,quarterly_ = boolopt "quarterly" rawopts ,quarterly_ = boolopt "quarterly" rawopts
,yearly_ = boolopt "yearly" rawopts ,yearly_ = boolopt "yearly" rawopts
,format_ = maybestringopt "format" rawopts -- XXX move to CliOpts or move validation from Cli.Options to here ,format_ = maybestringopt "format" rawopts -- XXX move to CliOpts or move validation from Cli.CliOptions to here
,query_ = unwords $ listofstringopt "args" rawopts -- doesn't handle an arg like "" right ,query_ = unwords $ listofstringopt "args" rawopts -- doesn't handle an arg like "" right
,average_ = boolopt "average" rawopts ,average_ = boolopt "average" rawopts
,related_ = boolopt "related" rawopts ,related_ = boolopt "related" rawopts

2
hledger-web/tests/main.hs
View File

@ -9,7 +9,7 @@ import Yesod.Default.Config
import Yesod.Test import Yesod.Test
import Test.Hspec (hspec) import Test.Hspec (hspec)
import Application (makeFoundation) import Application (makeFoundation)
import Hledger.Web.Options (defwebopts) import Hledger.Web.WebOptions (defwebopts)
import HomeTest import HomeTest