Gingersnap.Core

Rsp

rspGood :: ToJSON x => x -> Rsp

This means everything's succeeded. We should commit DB changes and return a success object

rspBad :: ApiErr ae => ae -> Rsp

We should send back an error object and roll back DB changes

rspBadCommit :: ApiErr ae => ae -> Rsp

Like rspBad but should still commit DB changes

rspBadRollback :: ApiErr ae => ae -> Rsp

The same as rspBad but more explicit that we roll back

rspGoodCSV :: ByteString -> Rsp

rspGoodLBS :: ByteString -> ByteString -> Rsp

First Bytestring is the content type, e.g. "application/json" Here's a helpful list: https://developer.mozilla.org/en-US/docs/Web/HTTP/Basics_of_HTTP/MIME_types/Complete_list_of_MIME_types

rspEmptyGood :: Rsp

Everything worked and we send a 200, but we don't have any data to send

data Rsp

How we construct responses. You probably don't want to be constructing or inspecting them by hand; instead you can use rspGood, rspBadRollback, etc.

Constructors

Rsp

Fields

• rspShouldCommit :: ShouldCommitOrRollback
• rspPayload :: RspPayload

Instances

Show Rsp

Defined in Gingersnap.Core

Methods

showsPrec :: Int -> Rsp -> ShowS

show :: Rsp -> String

showList :: [Rsp] -> ShowS

Generic Rsp

Defined in Gingersnap.Core

Associated Types

type Rep Rsp :: Type -> Type

Methods

from :: Rsp -> Rep Rsp x

to :: Rep Rsp x -> Rsp

NFData Rsp

Defined in Gingersnap.Core

Methods

rnf :: Rsp -> ()

type Rep Rsp

Defined in Gingersnap.Core

type Rep Rsp = D1 ('MetaData "Rsp" "Gingersnap.Core" "gingersnap-0.2.2.3-1cBbVyzm2okBmXGf2oXMQO" 'False) (C1 ('MetaCons "Rsp" 'PrefixI 'True) (S1 ('MetaSel ('Just "rspShouldCommit") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ShouldCommitOrRollback) :*: S1 ('MetaSel ('Just "rspPayload") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 RspPayload)))

pureRsp

pureRsp :: IsCtx ctx => ctx -> Rsp -> Snap ()

Sometimes you don't need a DB connection at all!

DB Transactions

inTransaction :: IsCtx ctx => ctx -> (Connection -> IO Rsp) -> Snap ()

_If you hit the DB, use this function!_

NOTE this is for IO actions, not Snap actions. This is to ensure we can't call e.g. finishEarly and never hit the 'end transaction' code! (It also has the side benefit of keeping code fairly framework-agnostic)

inTransactionMode :: IsCtx ctx => ctx -> IsolationLevel -> ReadWriteMode -> (Connection -> IO Rsp) -> Snap ()

The most general version of inTransaction.

An endpoint that uses ReadOnly will keep responding even when the server is in read-only mode.

inTransaction_readOnly :: IsCtx ctx => ctx -> (Connection -> IO Rsp) -> Snap ()

Creates a read-only transaction and will keep responding even if the server's in read-only mode.

Note that you the programmer are asserting the DB queries are read-only. There's nothing in this library or in postgresql-simple which statically checks that to be true!

inTransaction_override :: IsCtx ctx => ctx -> (Connection -> IO Rsp) -> Snap ()

_You should only use this once!_

This lets you do a write transaction during read-only mode (not a read-only transaction! A time where ctxGetReadOnlyMode would return True)

You may need this so that an admin user can take the app out of read-only mode

rspIsGood :: Rsp -> Bool

IsCtx

class ApiErr (CtxErrType ctx) => IsCtx ctx where

Don't be daunted! The only thing you need to provide (i.e. that doesn't have a default value) is ctxConnectionPool

Minimal complete definition

ctxConnectionPool

Associated Types

type CtxErrType ctx

type CtxErrType ctx = DefaultApiErr

Methods

ctxConnectionPool :: ctx -> Pool Connection

ctxGetReadOnlyMode :: ctx -> IO Bool

ctx_wrapSuccess :: ToJSON x => ctx -> x -> Value

JSON requests

reqObject :: IsCtx ctx => ctx -> Snap (ReqObject ctx)

reqObject' :: IsCtx ctx => ctx -> Word64 -> Snap (ReqObject ctx)

(.!) :: (IsCtx ctx, FromJSON x) => ReqObject ctx -> Text -> Snap x

Like (.!?) but returns a 422 error (with errorEarly) if the key isn't present

(.!?) :: (IsCtx ctx, FromJSON x) => ReqObject ctx -> Text -> Snap (Maybe x)

Get a JSON value from the request object, and give a HTTP 422 response (errorEarly) if the value is malformed (not able to be decoded). If it's not present, don't fail: just give us a Nothing

data ReqObject ctx

Constructors

ReqObject ctx (HashMap Text Value)

Errors

errorEarlyCode :: ApiErr ae => ae -> Snap x

This returns any 'Snap x' so you can use it like a throw anywhere in your snap code

NOTE: if you ever use 's withTransaction (which we don't recommend!) this function has the same caveats as finishWith

class ApiErr apiErr where

Methods

errResult :: apiErr -> ErrResult

apiErr_missingRequestKey :: Text -> apiErr

The request object is missing a required key. E.g. the request is {"first": Tom} but we need both a "first" and a "last"

apiErr_requestNotJSON :: apiErr

We can't process the request because the request is malformed JSON or not JSON at all

apiErr_requestNotJSONObject :: apiErr

The request *is* JSON, but not an object (e.g. maybe it's an array or a number, but we need an object)

apiErr_malformedRequestValue :: Text -> Value -> apiErr

It's a JSON object but it's malformed somehow (e.g. maybe it's got the wrong keys). In other words, we can't fromJSON it successfully.

(The Text is the key of the malformed value)

apiErr_unexpectedError :: Text -> apiErr

A 500 internal server error

The Text value is the error message. You may want different behavior in development vs. production, e.g. not showing internal errors in prod

apiErr_inReadOnlyMode :: apiErr

Instances

ApiErr DefaultApiErr

Defined in Gingersnap.Core

Methods

errResult :: DefaultApiErr -> ErrResult

apiErr_missingRequestKey :: Text -> DefaultApiErr

apiErr_requestNotJSON :: DefaultApiErr

apiErr_requestNotJSONObject :: DefaultApiErr

apiErr_malformedRequestValue :: Text -> Value -> DefaultApiErr

apiErr_unexpectedError :: Text -> DefaultApiErr

apiErr_inReadOnlyMode :: DefaultApiErr

data ErrResult

Constructors

ErrResult Status Value

Instances

Eq ErrResult

Defined in Gingersnap.Core

Methods

(==) :: ErrResult -> ErrResult -> Bool

(/=) :: ErrResult -> ErrResult -> Bool

Show ErrResult

Defined in Gingersnap.Core

Methods

showsPrec :: Int -> ErrResult -> ShowS

show :: ErrResult -> String

showList :: [ErrResult] -> ShowS

NFData ErrResult

Defined in Gingersnap.Core

Methods

rnf :: ErrResult -> ()

data DefaultApiErr

Constructors

DefaultApiErr_ReadOnlyMode

DefaultApiErr_MissingRequestKey Text

DefaultApiErr_RequestNotJSON

DefaultApiErr_RequestNotJSONObject

DefaultApiErr_MalformedRequestValue Text Value

DefaultApiErr_UnexpectedError Text

DefaultApiErr_Custom Status String [(Text, Value)]

Instances

Eq DefaultApiErr

Defined in Gingersnap.Core

Methods

(==) :: DefaultApiErr -> DefaultApiErr -> Bool

(/=) :: DefaultApiErr -> DefaultApiErr -> Bool

Show DefaultApiErr

Defined in Gingersnap.Core

Methods

showsPrec :: Int -> DefaultApiErr -> ShowS

show :: DefaultApiErr -> String

showList :: [DefaultApiErr] -> ShowS

ApiErr DefaultApiErr

Defined in Gingersnap.Core

Methods

errResult :: DefaultApiErr -> ErrResult

apiErr_missingRequestKey :: Text -> DefaultApiErr

apiErr_requestNotJSON :: DefaultApiErr

apiErr_requestNotJSONObject :: DefaultApiErr

apiErr_malformedRequestValue :: Text -> Value -> DefaultApiErr

apiErr_unexpectedError :: Text -> DefaultApiErr

apiErr_inReadOnlyMode :: DefaultApiErr

ctxErr :: IsCtx ctx => ctx -> CtxErrType ctx -> CtxErrType ctx

Internals

data RspPayload

Constructors

forall x.ToJSON x => RspPayload_Good x

forall e.ApiErr e => RspPayload_Bad e

RspPayload_Custom Status ByteString ByteString

First ByteString is MIME type; second is response body

RspPayload_Empty

Instances

NFData RspPayload

Defined in Gingersnap.Core

Methods

rnf :: RspPayload -> ()

data ShouldCommitOrRollback

Constructors

ShouldCommit

ShouldRollback

Instances

Eq ShouldCommitOrRollback

Defined in Gingersnap.Core

Methods

(==) :: ShouldCommitOrRollback -> ShouldCommitOrRollback -> Bool

(/=) :: ShouldCommitOrRollback -> ShouldCommitOrRollback -> Bool

Show ShouldCommitOrRollback

Defined in Gingersnap.Core

Methods

showsPrec :: Int -> ShouldCommitOrRollback -> ShowS

show :: ShouldCommitOrRollback -> String

showList :: [ShouldCommitOrRollback] -> ShowS

Generic ShouldCommitOrRollback

Defined in Gingersnap.Core

Associated Types

type Rep ShouldCommitOrRollback :: Type -> Type

Methods

from :: ShouldCommitOrRollback -> Rep ShouldCommitOrRollback x

to :: Rep ShouldCommitOrRollback x -> ShouldCommitOrRollback

NFData ShouldCommitOrRollback

Defined in Gingersnap.Core

Methods

rnf :: ShouldCommitOrRollback -> ()

type Rep ShouldCommitOrRollback

Defined in Gingersnap.Core

type Rep ShouldCommitOrRollback = D1 ('MetaData "ShouldCommitOrRollback" "Gingersnap.Core" "gingersnap-0.2.2.3-1cBbVyzm2okBmXGf2oXMQO" 'False) (C1 ('MetaCons "ShouldCommit" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ShouldRollback" 'PrefixI 'False) (U1 :: Type -> Type))

Reexports, for convenience

data Pool a

Instances

Show (Pool a)

Defined in Data.Pool

Methods

showsPrec :: Int -> Pool a -> ShowS

show :: Pool a -> String

showList :: [Pool a] -> ShowS

createPool

Arguments

:: IO a

Action that creates a new resource.

-> (a -> IO ())

Action that destroys an existing resource.

-> Int

The number of stripes (distinct sub-pools) to maintain. The smallest acceptable value is 1.

-> NominalDiffTime

Amount of time for which an unused resource is kept open. The smallest acceptable value is 0.5 seconds.

The elapsed time before destroying a resource may be a little longer than requested, as the reaper thread wakes at 1-second intervals.

-> Int

Maximum number of resources to keep open per stripe. The smallest acceptable value is 1.

Requests for resources will block if this limit is reached on a single stripe, even if other stripes have idle resources available.

-> IO (Pool a)

Create a striped resource pool.

Although the garbage collector will destroy all idle resources when the pool is garbage collected it's recommended to manually destroyAllResources when you're done with the pool so that the resources are freed up as soon as possible.

data Connection

Instances

Eq Connection

Defined in Database.PostgreSQL.Simple.Internal

Methods

(==) :: Connection -> Connection -> Bool

(/=) :: Connection -> Connection -> Bool