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

avoid build failure when switching -DWEB on and off

Browse Source
This commit is contained in:
Simon Michael 2010-07-13 01:05:13 +00:00
parent e3a2370728
commit 7e161bbebf
1 changed files with 0 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Hledger/Cli/Options.hs
View File

@ -135,10 +135,8 @@ data Opt =
MonthlyOpt | MonthlyOpt |
QuarterlyOpt | QuarterlyOpt |
YearlyOpt | YearlyOpt |
#if defined(WEB) || defined(WEB610)
BaseUrl {value::String} | BaseUrl {value::String} |
Port {value::String} | Port {value::String} |
#endif
Help | Help |
HelpOptions | HelpOptions |
HelpAll | HelpAll |
@ -247,7 +245,6 @@ displayExprFromOpts opts = listtomaybe $ optValuesForConstructor Display opts
listtomaybe [] = Nothing listtomaybe [] = Nothing
listtomaybe vs = Just $ last vs listtomaybe vs = Just $ last vs
#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
@ -262,7 +259,6 @@ portFromOpts opts = listtomaybeint $ optValuesForConstructor Port opts
listtomaybeint [] = Nothing listtomaybeint [] = Nothing
listtomaybeint vs = Just $ read $ last vs listtomaybeint vs = Just $ read $ last vs
#endif
-- | Get a maybe boolean representing the last cleared/uncleared option if any. -- | Get a maybe boolean representing the last cleared/uncleared option if any.
clearedValueFromOpts opts | null os = Nothing clearedValueFromOpts opts | null os = Nothing