diff --git a/relational-query-HDBC.cabal b/relational-query-HDBC.cabal
--- a/relational-query-HDBC.cabal
+++ b/relational-query-HDBC.cabal
@@ -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.
diff --git a/src/Database/HDBC/Query/TH.hs b/src/Database/HDBC/Query/TH.hs
--- a/src/Database/HDBC/Query/TH.hs
+++ b/src/Database/HDBC/Query/TH.hs
@@ -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)