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

web: avoid a build failure when switching from -fweb610 to -fweb

Browse Source
This commit is contained in:
Simon Michael 2010-07-10 14:35:52 +00:00
parent 689e3f8354
commit e3a2370728
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/Cli/Options.hs
View File

@ -135,7 +135,7 @@ data Opt =
MonthlyOpt | MonthlyOpt |
QuarterlyOpt | QuarterlyOpt |
YearlyOpt | YearlyOpt |
#ifdef WEB #if defined(WEB) || defined(WEB610)
BaseUrl {value::String} | BaseUrl {value::String} |
Port {value::String} | Port {value::String} |
#endif #endif
@ -247,7 +247,7 @@ displayExprFromOpts opts = listtomaybe $ optValuesForConstructor Display opts
listtomaybe [] = Nothing listtomaybe [] = Nothing
listtomaybe vs = Just $ last vs listtomaybe vs = Just $ last vs
#ifdef WEB #if defined(WEB) || defined(WEB610)
-- | Get the value of the (last) baseurl option, if any. -- | Get the value of the (last) baseurl option, if any.
baseUrlFromOpts :: [Opt] -> Maybe String baseUrlFromOpts :: [Opt] -> Maybe String
baseUrlFromOpts opts = listtomaybe $ optValuesForConstructor BaseUrl opts baseUrlFromOpts opts = listtomaybe $ optValuesForConstructor BaseUrl opts