web: Controller -> AppRun
This commit is contained in:
parent
910e5c2bee
commit
6c6e6d4caa
@ -2,7 +2,7 @@
|
|||||||
{-# LANGUAGE MultiParamTypeClasses #-}
|
{-# LANGUAGE MultiParamTypeClasses #-}
|
||||||
{-# LANGUAGE OverloadedStrings #-}
|
{-# LANGUAGE OverloadedStrings #-}
|
||||||
{-# OPTIONS_GHC -fno-warn-orphans #-}
|
{-# OPTIONS_GHC -fno-warn-orphans #-}
|
||||||
module Controller
|
module AppRun
|
||||||
( withApp
|
( withApp
|
||||||
, withDevelApp
|
, withDevelApp
|
||||||
) where
|
) where
|
||||||
@ -101,7 +101,7 @@ library
|
|||||||
else
|
else
|
||||||
Buildable: False
|
Buildable: False
|
||||||
exposed-modules:
|
exposed-modules:
|
||||||
Controller
|
AppRun
|
||||||
other-modules:
|
other-modules:
|
||||||
App
|
App
|
||||||
EmbeddedFiles
|
EmbeddedFiles
|
||||||
|
|||||||
@ -8,7 +8,6 @@ Released under GPL version 3 or later.
|
|||||||
module Main
|
module Main
|
||||||
where
|
where
|
||||||
|
|
||||||
import Controller (withApp)
|
|
||||||
import Network.Wai.Handler.Warp (run)
|
import Network.Wai.Handler.Warp (run)
|
||||||
#if PRODUCTION
|
#if PRODUCTION
|
||||||
#else
|
#else
|
||||||
@ -30,6 +29,7 @@ import Hledger.Data
|
|||||||
import Hledger.Data.UTF8 (putStr, putStrLn)
|
import Hledger.Data.UTF8 (putStr, putStrLn)
|
||||||
|
|
||||||
import App
|
import App
|
||||||
|
import AppRun (withApp)
|
||||||
import EmbeddedFiles (createFilesIfMissing)
|
import EmbeddedFiles (createFilesIfMissing)
|
||||||
import Settings (defhost, defport, datadir, staticdir) -- , browserstartdelay)
|
import Settings (defhost, defport, datadir, staticdir) -- , browserstartdelay)
|
||||||
|
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user