slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

web: cleanups

Browse Source
This commit is contained in:
Simon Michael 2014-07-17 15:05:39 -07:00
parent 5aaef598ba
commit 927e7593fa
2 changed files with 14 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
hledger-web/.ghci
View File

@ -9,7 +9,7 @@ import Prelude
-- hledger-web -- hledger-web
:def serve const . return $ ":main --server --port 3000 -f t.j" :def serve const . return $ ":main --server --port 3000"
-- misc -- misc

17
hledger-web/app/main.hs
View File

@ -1,11 +1,20 @@
import Prelude (IO) 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.Config (fromArgs)
-- import Yesod.Default.Main (defaultMain) -- import Yesod.Default.Main (defaultMain)
-- import Settings (parseExtra) -- import Settings (parseExtra)
-- import Application (makeApplication) -- import Application (makeApplication)
import qualified Hledger.Web.Main -- import Hledger
-- import Hledger.Web (defwebopts)
main :: IO () -- main = do
-- main = defaultMain (fromArgs parseExtra) makeApplication -- j <- defaultJournal
main = Hledger.Web.Main.main -- defaultMain (fromArgs parseExtra) (makeApplication defwebopts j)