persistent-odbc 0.1.2.1 → 0.1.2.2

raw patch · 3 files changed

+3/−2 lines, 3 files

Files

• examples/TestODBC.hs +1/−0
• persistent-odbc.cabal +1/−1
• src/Database/Persist/MigrateOracle.hs +1/−1

@@ -7,6 +7,7 @@ import Database.Persist
 import Database.Persist.ODBC
 import Database.Persist.TH
+import Control.Monad.Trans.Resource (runResourceT,MonadResource,ResourceT)
 import Control.Monad.IO.Class (liftIO)
 import Control.Monad.Logger
 import Data.Text (Text)

@@ -1,5 +1,5 @@ name:               persistent-odbc
-version:            0.1.2.1
+version:            0.1.2.2
 synopsis:           Backend for the persistent library using ODBC
 license:            MIT
 license-file:       LICENSE

@@ -474,7 +474,7 @@ showSqlType SqlString  Nothing    = "VARCHAR2(1000)"
 showSqlType SqlString  (Just i)   = "VARCHAR2(" ++ show i ++ ")"
 showSqlType SqlTime    _          = "TIME"
-showSqlType (SqlOther t) _        = error ("oops in showSqlType " ++ show t)  -- $ T.unpack t
+showSqlType (SqlOther t) _        = error ("oops in showSqlType " ++ show t)
 
 -- | Render an action that must be done on the database.
 showAlterDb :: AlterDB -> (Bool, Text)