diff --git a/hledger-web/.ghci b/hledger-web/.ghci index 186b82b91..c59d1c370 100644 --- a/hledger-web/.ghci +++ b/hledger-web/.ghci @@ -9,7 +9,7 @@ import Prelude -- hledger-web -:def serve const . return $ ":main --server --port 3000 -f t.j" +:def serve const . return $ ":main --server --port 3000" -- misc diff --git a/hledger-web/app/main.hs b/hledger-web/app/main.hs index 8522a9b22..4590058d1 100644 --- a/hledger-web/app/main.hs +++ b/hledger-web/app/main.hs @@ -1,11 +1,20 @@ import Prelude (IO) + +import qualified Hledger.Web.Main + +main :: IO () +main = Hledger.Web.Main.main + +-- more standard yesod main, for reloading experiments + -- import Yesod.Default.Config (fromArgs) -- import Yesod.Default.Main (defaultMain) -- import Settings (parseExtra) -- import Application (makeApplication) -import qualified Hledger.Web.Main +-- import Hledger +-- import Hledger.Web (defwebopts) -main :: IO () --- main = defaultMain (fromArgs parseExtra) makeApplication -main = Hledger.Web.Main.main +-- main = do +-- j <- defaultJournal +-- defaultMain (fromArgs parseExtra) (makeApplication defwebopts j)