diff --git a/ChangeLog.md b/ChangeLog.md
--- a/ChangeLog.md
+++ b/ChangeLog.md
@@ -1,3 +1,7 @@
+## 0.6.1.0
+
+- Add a configuration flag to pring verbose compile-time messages.
+
 ## 0.6.0.0
 
 - Increase type safety of interfaces.
diff --git a/relational-query.cabal b/relational-query.cabal
--- a/relational-query.cabal
+++ b/relational-query.cabal
@@ -1,5 +1,5 @@
 name:                relational-query
-version:             0.6.0.0
+version:             0.6.1.0
 synopsis:            Typeful, Modular, Relational, algebraic query engine
 description:         This package contiains typeful relation structure and
                      relational-algebraic query building DSL which can
diff --git a/src/Database/Relational/Query/Component.hs b/src/Database/Relational/Query/Component.hs
--- a/src/Database/Relational/Query/Component.hs
+++ b/src/Database/Relational/Query/Component.hs
@@ -17,7 +17,7 @@
          ColumnSQL, columnSQL, columnSQL', showsColumnSQL,
 
          -- * Configuration type for query
-         Config (productUnitSupport, chunksInsertSize, normalizedTableName),
+         Config (productUnitSupport, chunksInsertSize, normalizedTableName, verboseAsCompilerWarning),
          defaultConfig,
          ProductUnitSupport (..), Duplication (..),
 
@@ -95,17 +95,20 @@
 -- | Configuration type.
 data Config =
   Config
-  { productUnitSupport   ::  ProductUnitSupport
-  , chunksInsertSize     ::  Int
-  , normalizedTableName  ::  Bool
+  { productUnitSupport        ::  ProductUnitSupport
+  , chunksInsertSize          ::  Int
+  , normalizedTableName       ::  Bool
+  , verboseAsCompilerWarning  ::  Bool
   } deriving Show
 
 -- | Default configuration.
 defaultConfig :: Config
-defaultConfig =  Config { productUnitSupport   =  PUSupported
-                        , chunksInsertSize     =  256
-                        , normalizedTableName  =  True
-                        }
+defaultConfig =
+  Config { productUnitSupport        =  PUSupported
+         , chunksInsertSize          =  256
+         , normalizedTableName       =  True
+         , verboseAsCompilerWarning  =  False
+         }
 
 -- | Unit of product is supported or not.
 data ProductUnitSupport = PUSupported | PUNotSupported  deriving Show