diff options
| author | Joris | 2015-09-12 23:57:16 +0200 |
|---|---|---|
| committer | Joris | 2015-09-12 23:57:16 +0200 |
| commit | a48e79e2f7c1ab1ffb52b86ef9e900c75c5d023b (patch) | |
| tree | 05a613aef2d338f10bcdd394e520450656ed8f1c /src/server/Controller/Index.hs | |
| parent | d87dbd1360c14df83552fd757438c23e5d7b9f9c (diff) | |
| download | budget-a48e79e2f7c1ab1ffb52b86ef9e900c75c5d023b.tar.gz budget-a48e79e2f7c1ab1ffb52b86ef9e900c75c5d023b.tar.bz2 budget-a48e79e2f7c1ab1ffb52b86ef9e900c75c5d023b.zip | |
Adding UI income read-only
Diffstat (limited to 'src/server/Controller/Index.hs')
| -rw-r--r-- | src/server/Controller/Index.hs | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/server/Controller/Index.hs b/src/server/Controller/Index.hs index 17f5ae9..da67051 100644 --- a/src/server/Controller/Index.hs +++ b/src/server/Controller/Index.hs @@ -1,6 +1,6 @@ module Controller.Index - ( getIndexAction - , signOutAction + ( getIndex + , signOut ) where import Web.Scotty @@ -11,10 +11,10 @@ import qualified LoginSession import View.Page (page) -getIndexAction :: ActionM () -getIndexAction = html page +getIndex :: ActionM () +getIndex = html page -signOutAction :: ActionM () -signOutAction = do +signOut :: ActionM () +signOut = do LoginSession.delete status ok200 |