web: fix options breakage, add test code to tags

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

View File

@ -150,7 +150,7 @@ rawOptsToReportOpts rawopts = checkReportOpts <$> do
,monthly_ = boolopt "monthly" rawopts
,quarterly_ = boolopt "quarterly" 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
,average_ = boolopt "average" rawopts
,related_ = boolopt "related" rawopts

View File

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