blob: bbf741e7789b185645cf5815e83c9d41d6a21622 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
module Controller.Index
( getIndex
, signOut
) where
import Web.Scotty
import Network.HTTP.Types.Status (ok200)
import Conf (Conf(..))
import qualified LoginSession
import qualified Model.Json.Conf as M
import Model.Message.Key (Key)
import View.Page (page)
getIndex :: Conf -> Maybe Key -> ActionM ()
getIndex conf mbErrorKey = html $ page (M.Conf { M.currency = currency conf }) mbErrorKey
signOut :: ActionM ()
signOut = do
LoginSession.delete
status ok200
|
