Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
tree: 08d621ab6e
Fetching contributors…

Cannot retrieve contributors at this time

43 lines (31 sloc) 1.472 kB
---------------------------------------------------------------------------
-- Generated by DB/Direct
---------------------------------------------------------------------------
module Turbinado.SessionHandlers.GenericDB.SessionDBInfo.Sessions where
import Database.HaskellDB.DBLayout
---------------------------------------------------------------------------
-- Table
---------------------------------------------------------------------------
sessions :: Table
((RecCons SessionId (Expr Int)
(RecCons Expires (Expr (Maybe CalendarTime)) RecNil)))
sessions = baseTable "sessions" $
hdbMakeEntry SessionId #
hdbMakeEntry Expires
---------------------------------------------------------------------------
-- Fields
---------------------------------------------------------------------------
---------------------------------------------------------------------------
-- SessionId Field
---------------------------------------------------------------------------
data SessionId = SessionId
instance FieldTag SessionId where fieldName _ = "sessionid"
sessionId :: Attr SessionId Int
sessionId = mkAttr SessionId
---------------------------------------------------------------------------
-- Expires Field
---------------------------------------------------------------------------
data Expires = Expires
instance FieldTag Expires where fieldName _ = "expires"
expires :: Attr Expires (Maybe CalendarTime)
expires = mkAttr Expires
Jump to Line
Something went wrong with that request. Please try again.