relational-query-HDBC 0.2.0.0 → 0.2.0.1

raw patch · 2 files changed

+5/−7 lines, 2 filesdep ~names-th

Dependency ranges changed: names-th

Files

• relational-query-HDBC.cabal +1/−1
• src/Database/HDBC/Query/TH.hs +4/−6

@@ -1,5 +1,5 @@ name:                relational-query-HDBC-version:             0.2.0.0+version:             0.2.0.1 synopsis:            HDBC instance of relational-query and typed query interface for HDBC description:         This package contains the HDBC instance of relational-query and                      the typed query interface for HDBC.

@@ -29,13 +29,13 @@ import Data.Maybe (listToMaybe, fromMaybe) import qualified Data.Map as Map import Control.Applicative ((<$>), (<*>))-import Control.Monad (when)+import Control.Monad (when, void)  import Database.HDBC (IConnection, SqlValue, prepare)  import Language.Haskell.TH (Q, runIO, Name, TypeQ, Dec) import Language.Haskell.TH.Name.CamelCase (ConName, varCamelcaseName)-import Language.Haskell.TH.Lib.Extra (reportWarning, reportError, reportMessage)+import Language.Haskell.TH.Lib.Extra (reportWarning, reportError)  import Database.Record.TH (makeRecordPersistableWithSqlTypeDefault) import qualified Database.Record.TH as Record@@ -143,8 +143,6 @@ inlineVerifiedQuery connect relVar rel config sufs qns = do   (p, r) <- Relational.reifyRelation relVar   let sql = relationalQuerySQL config rel sufs-  _ <- runIO $ withConnectionIO connect-       (\conn -> do-           reportMessage $ "Verify with prepare: " ++ sql-           prepare conn sql)+  when (verboseAsCompilerWarning config) . reportWarning $ "Verify with prepare: " ++ sql+  void . runIO $ withConnectionIO connect (\conn -> prepare conn sql)   Relational.unsafeInlineQuery (return p) (return r) sql (varCamelcaseName qns)