diff --git a/hledger-web/App.hs b/hledger-web/App.hs index 43368a15a..df4c5e26c 100644 --- a/hledger-web/App.hs +++ b/hledger-web/App.hs @@ -13,6 +13,7 @@ module App , liftIO ) where +import Control.Monad import Control.Monad.Trans.Class (lift) import Control.Monad.IO.Class (liftIO) import qualified Data.Text as T diff --git a/hledger-web/Handlers.hs b/hledger-web/Handlers.hs index 08fc6a9bc..589356fbb 100644 --- a/hledger-web/Handlers.hs +++ b/hledger-web/Handlers.hs @@ -4,11 +4,16 @@ module Handlers where import Control.Applicative ((<$>), (<*>)) import Data.ByteString (ByteString) import Data.Either (lefts,rights) +import Data.List +import Data.Maybe import Data.Text(Text,pack,unpack) +import Data.Time.Calendar import System.FilePath (takeFileName, ()) import System.IO.Storage (putValue, getValue) import Text.Hamlet hiding (hamletFile) import Text.ParserCombinators.Parsec hiding (string) +import Text.Printf +import Text.RegexPR import Yesod.Form import Hledger.Cli.Add @@ -18,9 +23,11 @@ import Hledger.Cli.Register import Hledger.Cli.Options hiding (value) import Hledger.Cli.Utils import Hledger.Cli.Version (version) -import Hledger.Data hiding (insert, today) +import Hledger.Cli.Version -- XXX +import Hledger.Data hiding (today) import Hledger.Read (journalFromPathAndString) import Hledger.Read.JournalReader (someamount) +import Hledger.Utils import App import Settings diff --git a/hledger-web/Settings.hs b/hledger-web/Settings.hs index 1a2c6c88a..f36b0c841 100644 --- a/hledger-web/Settings.hs +++ b/hledger-web/Settings.hs @@ -111,7 +111,7 @@ toJuliusFile x = datadir++"templates/" ++ x ++ ".julius" toLuciusFile x = datadir++"templates/" ++ x ++ ".lucius" hamletFile :: FilePath -> Q Exp -hamletFile = H.hamletFile . toHamletFile +hamletFile = H.hamletFile . toHamletFile -- debug variant not used, http://www.yesodweb.com/book/faq#q1 cassiusFile :: FilePath -> Q Exp #ifdef PRODUCTION diff --git a/hledger-web/hledger-web.cabal b/hledger-web/hledger-web.cabal index b3bc9aa95..f3326ffa8 100644 --- a/hledger-web/hledger-web.cabal +++ b/hledger-web/hledger-web.cabal @@ -72,11 +72,11 @@ executable hledger-web -- ,old-time ,parsec -- ,process - -- ,regexpr >= 0.5.1 + ,regexpr >= 0.5.1 ,safe >= 0.2 -- ,split == 0.1.* ,text - -- ,time + ,time -- ,utf8-string >= 0.3.5 && < 0.4 ,io-storage >= 0.3 && < 0.4 -- ,convertible-text >= 0.3.0.1 && < 0.4 diff --git a/hledger-web/hledger-web.hs b/hledger-web/hledger-web.hs index 6ec70f3ad..3457d44af 100644 --- a/hledger-web/hledger-web.hs +++ b/hledger-web/hledger-web.hs @@ -10,6 +10,7 @@ where import Prelude hiding (putStr, putStrLn) -- import Control.Concurrent (forkIO, threadDelay) +import Data.Maybe import Data.Text(pack) import Network.Wai.Handler.Warp (run) #if PRODUCTION @@ -19,6 +20,7 @@ import Network.Wai.Middleware.Debug (debug) import System.Console.GetOpt import System.Exit (exitFailure) import System.IO.Storage (withStore, putValue,) +import Text.Printf import Yesod.Helpers.Static import Hledger.Cli.Options