web: Controller -> AppRun

This commit is contained in:
Simon Michael 2011-05-25 00:45:52 +00:00
parent 910e5c2bee
commit 6c6e6d4caa
3 changed files with 3 additions and 3 deletions

View File

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

View File

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

View File

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