web: fix options breakage, add test code to tags
This commit is contained in:
		
							parent
							
								
									9e9aec957f
								
							
						
					
					
						commit
						92038b7d72
					
				| @ -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 | ||||
|  | ||||
| @ -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 | ||||
| 
 | ||||
|  | ||||
		Loading…
	
		Reference in New Issue
	
	Block a user