module Web.Spock.Shared
(
request, header, cookie, body, jsonBody, jsonBody', files, UploadedFile (..)
, params, param, param'
, setStatus, setHeader, redirect, jumpNext, setCookie, setCookie', bytes, lazyBytes
, text, html, file, json, blaze
, middlewarePass, modifyVault, queryVault
, PoolOrConn (..), ConnBuilder (..), PoolCfg (..)
, HasSpock (runQuery, getState), SpockConn, SpockState, SpockSession
, requireBasicAuth
, SessionCfg (..), SessionId
, getSessionId, readSession, writeSession, modifySession, clearAllSessions
, runForm
, getSpockHeart, runSpockIO, WebStateM, WebState
)
where
import Web.Spock.Internal.Monad
import Web.Spock.Internal.Digestive
import Web.Spock.Internal.SessionManager
import Web.Spock.Internal.Types
import Web.Spock.Internal.CoreAction
getSessionId :: SpockAction conn sess st SessionId
getSessionId =
getSessMgr >>= sm_getSessionId
writeSession :: sess -> SpockAction conn sess st ()
writeSession d =
do mgr <- getSessMgr
(sm_writeSession mgr) d
modifySession :: (sess -> sess) -> SpockAction conn sess st ()
modifySession f =
do mgr <- getSessMgr
(sm_modifySession mgr) f
readSession :: SpockAction conn sess st sess
readSession =
do mgr <- getSessMgr
sm_readSession mgr
clearAllSessions :: SpockAction conn sess st ()
clearAllSessions =
do mgr <- getSessMgr
sm_clearAllSessions mgr