diff --git a/Hledger/Cli/Options.hs b/Hledger/Cli/Options.hs index 2fc414560..650b2585b 100644 --- a/Hledger/Cli/Options.hs +++ b/Hledger/Cli/Options.hs @@ -135,10 +135,8 @@ data Opt = MonthlyOpt | QuarterlyOpt | YearlyOpt | -#if defined(WEB) || defined(WEB610) BaseUrl {value::String} | Port {value::String} | -#endif Help | HelpOptions | HelpAll | @@ -247,7 +245,6 @@ displayExprFromOpts opts = listtomaybe $ optValuesForConstructor Display opts listtomaybe [] = Nothing listtomaybe vs = Just $ last vs -#if defined(WEB) || defined(WEB610) -- | Get the value of the (last) baseurl option, if any. baseUrlFromOpts :: [Opt] -> Maybe String baseUrlFromOpts opts = listtomaybe $ optValuesForConstructor BaseUrl opts @@ -262,7 +259,6 @@ portFromOpts opts = listtomaybeint $ optValuesForConstructor Port opts listtomaybeint [] = Nothing listtomaybeint vs = Just $ read $ last vs -#endif -- | Get a maybe boolean representing the last cleared/uncleared option if any. clearedValueFromOpts opts | null os = Nothing