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 OverloadedStrings #-}
{-# OPTIONS_GHC -fno-warn-orphans #-}
module Controller
module AppRun
( withApp
, withDevelApp
) where

View File

@ -101,7 +101,7 @@ library
else
Buildable: False
exposed-modules:
Controller
AppRun
other-modules:
App
EmbeddedFiles

View File

@ -8,7 +8,6 @@ Released under GPL version 3 or later.
module Main
where
import Controller (withApp)
import Network.Wai.Handler.Warp (run)
#if PRODUCTION
#else
@ -30,6 +29,7 @@ import Hledger.Data
import Hledger.Data.UTF8 (putStr, putStrLn)
import App
import AppRun (withApp)
import EmbeddedFiles (createFilesIfMissing)
import Settings (defhost, defport, datadir, staticdir) -- , browserstartdelay)