From b4a72da355926a69b8b691209f67abbe70b7edf5 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Mon, 18 Apr 2016 15:26:54 -0700
Subject: [PATCH] web: fix stack ghci duplicate main error

---
 hledger-web/Hledger/Web/Main.hs | 4 ++--
 hledger-web/app/main.hs         | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/hledger-web/Hledger/Web/Main.hs b/hledger-web/Hledger/Web/Main.hs
index 0efc0441a..e6f965cf6 100644
--- a/hledger-web/Hledger/Web/Main.hs
+++ b/hledger-web/Hledger/Web/Main.hs
@@ -35,8 +35,8 @@ import Hledger.Cli hiding (progname,prognameandversion)
 import Hledger.Web.WebOptions
 
 
-main :: IO ()
-main = do
+hledgerWebMain :: IO ()
+hledgerWebMain = do
   opts <- getHledgerWebOpts
   when (debug_ (cliopts_ opts) > 0) $ printf "%s\n" prognameandversion >> printf "opts: %s\n" (show opts)
   runWith opts
diff --git a/hledger-web/app/main.hs b/hledger-web/app/main.hs
index 4590058d1..119957247 100644
--- a/hledger-web/app/main.hs
+++ b/hledger-web/app/main.hs
@@ -1,9 +1,9 @@
 import Prelude              (IO)
 
-import qualified Hledger.Web.Main
+import Hledger.Web.Main
 
 main :: IO ()
-main = Hledger.Web.Main.main
+main = hledgerWebMain
 
 -- more standard yesod main, for reloading experiments