web: fix stack ghci duplicate main error

This commit is contained in:
Simon Michael 2016-04-18 15:26:54 -07:00
parent 8839136f02
commit b4a72da355
2 changed files with 4 additions and 4 deletions

View File

@ -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

View File

@ -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