From e3a2370728ce1c936ca0a011794bf92d21f28568 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Sat, 10 Jul 2010 14:35:52 +0000
Subject: [PATCH] web: avoid a build failure when switching from -fweb610 to
 -fweb

---
 Hledger/Cli/Options.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Hledger/Cli/Options.hs b/Hledger/Cli/Options.hs
index b3b6269c4..2fc414560 100644
--- a/Hledger/Cli/Options.hs
+++ b/Hledger/Cli/Options.hs
@@ -135,7 +135,7 @@ data Opt =
     MonthlyOpt |
     QuarterlyOpt |
     YearlyOpt |
-#ifdef WEB
+#if defined(WEB) || defined(WEB610)
     BaseUrl {value::String} |
     Port    {value::String} |
 #endif
@@ -247,7 +247,7 @@ displayExprFromOpts opts = listtomaybe $ optValuesForConstructor Display opts
       listtomaybe [] = Nothing
       listtomaybe vs = Just $ last vs
 
-#ifdef WEB
+#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