blob: 17f5ae973201db6ffc676f9f8111d651ec3e1dd9 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
module Controller.Index
( getIndexAction
, signOutAction
) where
import Web.Scotty
import Network.HTTP.Types.Status (ok200)
import qualified LoginSession
import View.Page (page)
getIndexAction :: ActionM ()
getIndexAction = html page
signOutAction :: ActionM ()
signOutAction = do
LoginSession.delete
status ok200
|
