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 import Hledger.Web.WebOptions
main :: IO () hledgerWebMain :: IO ()
main = do hledgerWebMain = do
opts <- getHledgerWebOpts opts <- getHledgerWebOpts
when (debug_ (cliopts_ opts) > 0) $ printf "%s\n" prognameandversion >> printf "opts: %s\n" (show opts) when (debug_ (cliopts_ opts) > 0) $ printf "%s\n" prognameandversion >> printf "opts: %s\n" (show opts)
runWith opts runWith opts

View File

@ -1,9 +1,9 @@
import Prelude (IO) import Prelude (IO)
import qualified Hledger.Web.Main import Hledger.Web.Main
main :: IO () main :: IO ()
main = Hledger.Web.Main.main main = hledgerWebMain
-- more standard yesod main, for reloading experiments -- more standard yesod main, for reloading experiments