diff options
| author | Joris | 2016-03-23 00:45:33 +0100 |
|---|---|---|
| committer | Joris | 2016-03-23 00:46:53 +0100 |
| commit | a11ad41b52ed3682d33382f2a378bf3294d688b2 (patch) | |
| tree | f1d0f7835965ebcc6a61225186cad6b5de565bca /src/server/Controller/Index.hs | |
| parent | 32db6a74d8578f993dd1cce3367fc7615ec730cd (diff) | |
| download | budget-a11ad41b52ed3682d33382f2a378bf3294d688b2.tar.gz budget-a11ad41b52ed3682d33382f2a378bf3294d688b2.tar.bz2 budget-a11ad41b52ed3682d33382f2a378bf3294d688b2.zip | |
Sign in token link to /
Diffstat (limited to 'src/server/Controller/Index.hs')
| -rw-r--r-- | src/server/Controller/Index.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/server/Controller/Index.hs b/src/server/Controller/Index.hs index db1038a..bbf741e 100644 --- a/src/server/Controller/Index.hs +++ b/src/server/Controller/Index.hs @@ -11,11 +11,12 @@ import Conf (Conf(..)) import qualified LoginSession import qualified Model.Json.Conf as M +import Model.Message.Key (Key) import View.Page (page) -getIndex :: Conf -> ActionM () -getIndex conf = html . page $ M.Conf { M.currency = currency conf } +getIndex :: Conf -> Maybe Key -> ActionM () +getIndex conf mbErrorKey = html $ page (M.Conf { M.currency = currency conf }) mbErrorKey signOut :: ActionM () signOut = do |