diff options
| author | Joris | 2016-03-20 22:38:44 +0100 |
|---|---|---|
| committer | Joris | 2016-03-21 20:43:55 +0100 |
| commit | 1c7d6ea6e3bcd3c672cb5eb3cf22ffc88cabb257 (patch) | |
| tree | 4ff8aeb6aa0f159548f8f506374276c1a2c97f7d /src/server/Controller/Index.hs | |
| parent | 47104f0b3965cd1dfba0f466afdb5e8983dc7bec (diff) | |
| download | budget-1c7d6ea6e3bcd3c672cb5eb3cf22ffc88cabb257.tar.gz budget-1c7d6ea6e3bcd3c672cb5eb3cf22ffc88cabb257.tar.bz2 budget-1c7d6ea6e3bcd3c672cb5eb3cf22ffc88cabb257.zip | |
use config-manager instead of ConfigFile
Diffstat (limited to 'src/server/Controller/Index.hs')
| -rw-r--r-- | src/server/Controller/Index.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/server/Controller/Index.hs b/src/server/Controller/Index.hs index e4ec729..db1038a 100644 --- a/src/server/Controller/Index.hs +++ b/src/server/Controller/Index.hs @@ -7,15 +7,15 @@ import Web.Scotty import Network.HTTP.Types.Status (ok200) -import Config (Config(..)) +import Conf (Conf(..)) import qualified LoginSession -import qualified Model.Json.Config as M +import qualified Model.Json.Conf as M import View.Page (page) -getIndex :: Config -> ActionM () -getIndex config = html . page $ M.Config { M.currency = currency config } +getIndex :: Conf -> ActionM () +getIndex conf = html . page $ M.Conf { M.currency = currency conf } signOut :: ActionM () signOut = do |