Skip to content
Permalink
Browse files

Fix monad IO constraint

  • Loading branch information...
jhb563 committed Jan 30, 2019
1 parent 65ac937 commit 9f9c5035efe58da8f58eb80e106f1271d2a13c17
Showing with 3 additions and 2 deletions.
  1. +3 −2 src/Database/Persist/Migration/Postgres.hs
@@ -17,6 +17,7 @@ module Database.Persist.Migration.Postgres
, runMigration
) where

import Control.Monad.IO.Class (MonadIO)
import Data.Maybe (maybeToList)
import Data.Text (Text)
import qualified Data.Text as Text
@@ -25,11 +26,11 @@ import qualified Database.Persist.Migration.Core as Migration
import Database.Persist.Sql (PersistValue, SqlPersistT, SqlType(..))

-- | Run a migration with the Postgres backend.
runMigration :: MigrateSettings -> Migration -> SqlPersistT IO ()
runMigration :: (MonadIO m) => MigrateSettings -> Migration -> SqlPersistT m ()
runMigration = Migration.runMigration backend

-- | Get a migration with the Postgres backend.
getMigration :: MigrateSettings -> Migration -> SqlPersistT IO [MigrateSql]
getMigration :: (MonadIO m) => MigrateSettings -> Migration -> SqlPersistT m [MigrateSql]
getMigration = Migration.getMigration backend

-- | The migration backend for Postgres.

0 comments on commit 9f9c503

Please sign in to comment.
You can’t perform that action at this time.