gdritter repos khuzd / master src / Application.hs
master

Tree @master (Download .tar.gz)

Application.hs @master — raw · history · blame 

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
{-# LANGUAGE TemplateHaskell, OverloadedStrings, FlexibleInstances #-}

module Application where

import Control.Lens
import Control.Monad.State (get)
import Snap.Snaplet
import Snap.Snaplet.Auth
import Snap.Snaplet.Session
import Snap.Snaplet.SqliteSimple

data App = App
  { _sess :: Snaplet SessionManager
  , _db   :: Snaplet Sqlite
  , _auth :: Snaplet (AuthManager App)
  }

makeLenses ''App

type AppHandler = Handler App App

instance HasSqlite (Handler App App) where
  getSqliteState = with db get