Snap.Snaplet.Persistent

Documentation

initPersist :: SqlPersistT (NoLoggingT IO) a -> SnapletInit b PersistState

Initialize Persistent with an initial SQL function called right after the connection pool has been created. This is most useful for calling migrations upfront right after initialization.

Example:

 initPersist (runMigrationUnsafe migrateAll)

where migrateAll is the migration function that was auto-generated by the QQ statement in your persistent schema definition in the call to mkMigrate.

newtype PersistState

Constructors

PersistState

Fields

persistPool :: ConnectionPool

Instances

HasPersistPool (Handler b PersistState)

class MonadIO m => HasPersistPool m where

Implement this type class to have any monad work with snaplet-persistent. A default instance is provided for (Handler b PersistState).

Methods

getPersistPool :: m ConnectionPool

Instances

HasPersistPool m => HasPersistPool (NoLoggingT m)

MonadIO m => HasPersistPool (ReaderT ConnectionPool m)

HasPersistPool (Handler b PersistState)

mkPgPool :: MonadIO m => Config -> m ConnectionPool

Constructs a connection pool from Config.

mkSnapletPgPool :: (MonadIO (m b v), MonadSnaplet m) => m b v ConnectionPool

Conscruts a connection pool in a snaplet context.

runPersist

Arguments

:: HasPersistPool m

=> SqlPersistT (ResourceT (NoLoggingT IO)) b

Run given Persistent action in the defined monad.

-> m b

Runs a SqlPersist action in any monad with a HasPersistPool instance.

withPool :: MonadIO m => ConnectionPool -> SqlPersist (ResourceT (NoLoggingT IO)) a -> m a

Run a database action

Utility Functions

mkKey :: Int -> Key entity

Make a Key from an Int.

mkKeyBS :: ByteString -> Key entity

Makes a Key from a ByteString. Calls error on failure.

mkKeyT :: Text -> Key entity

Makes a Key from Text. Calls error on failure.

showKey :: Key e -> Text

Makes a Text representation of a Key.

showKeyBS :: Key e -> ByteString

Makes a ByteString representation of a Key.

mkInt :: Key a -> Int

Converts a Key to Int. Fails with error if the conversion fails.

mkWord64 :: Key a -> Word64

Converts a Key to Word64. Fails with error if the conversion fails.

followForeignKey :: (PersistEntity a, HasPersistPool m, PersistEntityBackend a ~ SqlBackend) => (t -> Key a) -> Entity t -> m (Maybe (Entity a))

Follows a foreign key field in one entity and retrieves the corresponding entity from the database.

fromPersistValue' :: PersistField c => PersistValue -> c