data Ctxt = Ctxt { _req     :: FnRequest
                 , db       :: Pool Connection
                 , library  :: Library
                 , pushover :: Maybe (Push.APIToken, Push.UserKey)
                 , siteurl :: Text
                 }

instance RequestContext Ctxt where