persistent-odbc 0.1.2.0 → 0.1.2.1

raw patch · 8 files changed

+11/−2 lines, 8 filesdep +monad-control

Dependencies added: monad-control

Files

persistent-odbc.cabal +2/−1
src/Database/Persist/MigrateDB2.hs +1/−0
src/Database/Persist/MigrateMSSQL.hs +1/−0
src/Database/Persist/MigrateMySQL.hs +1/−0
src/Database/Persist/MigrateOracle.hs +1/−0
src/Database/Persist/MigratePostgres.hs +1/−0
src/Database/Persist/MigrateSqlite.hs +1/−1
src/Database/Persist/ODBC.hs +3/−0

persistent-odbc.cabal view

@@ -1,5 +1,5 @@ name:               persistent-odbc
-version:            0.1.2.0
+version:            0.1.2.1
 synopsis:           Backend for the persistent library using ODBC
 license:            MIT
 license-file:       LICENSE
@@ -50,6 +50,7 @@                     , HDBC-odbc     >= 2.2 
                     , monad-logger
                     , resourcet
+                    , monad-control
                     , persistent-template >= 1.2    && < 1.4
                     , persistent    >= 1.2    && < 1.4
                     , bytestring    >= 0.9

src/Database/Persist/MigrateDB2.hs view

@@ -11,6 +11,7 @@ import Control.Monad.IO.Class (MonadIO (..))
 import Control.Monad.Trans.Class (lift)
 import Control.Monad.Trans.Error (ErrorT(..))
+import Control.Monad.Trans.Resource (runResourceT)
 import Data.ByteString (ByteString)
 import Data.Either (partitionEithers)
 import Data.Function (on)

src/Database/Persist/MigrateMSSQL.hs view

@@ -11,6 +11,7 @@ import Control.Monad.IO.Class (MonadIO (..))
 import Control.Monad.Trans.Class (lift)
 import Control.Monad.Trans.Error (ErrorT(..))
+import Control.Monad.Trans.Resource (runResourceT)
 import Data.ByteString (ByteString)
 import Data.Either (partitionEithers)
 import Data.Function (on)

src/Database/Persist/MigrateMySQL.hs view

@@ -11,6 +11,7 @@ import Control.Monad.IO.Class (MonadIO (..))
 import Control.Monad.Trans.Class (lift)
 import Control.Monad.Trans.Error (ErrorT(..))
+import Control.Monad.Trans.Resource (runResourceT)
 import Data.ByteString (ByteString)
 import Data.Either (partitionEithers)
 import Data.Function (on)

src/Database/Persist/MigrateOracle.hs view

@@ -11,6 +11,7 @@ import Control.Monad.IO.Class (MonadIO (..))
 import Control.Monad.Trans.Class (lift)
 import Control.Monad.Trans.Error (ErrorT(..))
+import Control.Monad.Trans.Resource (runResourceT)
 import Data.ByteString (ByteString)
 import Data.Either (partitionEithers)
 import Data.Function (on)

src/Database/Persist/MigratePostgres.hs view

@@ -11,6 +11,7 @@ 
 import Database.Persist.Sql
 import Control.Monad.IO.Class (MonadIO (..))
+import Control.Monad.Trans.Resource (runResourceT)
 import qualified Data.Text as T
 import Data.Text (pack,Text)

src/Database/Persist/MigrateSqlite.hs view

@@ -10,7 +10,7 @@ 
 import Data.List (intercalate)
 import Data.Text (Text, pack)
-
+import Control.Monad.Trans.Resource (runResourceT)
 import Data.Conduit
 import qualified Data.Conduit.List as CL
 import qualified Data.Text as T

src/Database/Persist/ODBC.hs view

@@ -40,6 +40,9 @@ import Data.Text (Text)
 import Data.Aeson -- (Object(..), (.:))
 import Control.Monad (mzero)
+import Control.Monad.Trans.Control (MonadBaseControl)
+import Control.Monad.Trans.Resource (MonadResource)
+
 import Data.Int (Int64)
 import Data.Conduit
 import Database.Persist.ODBCTypes