diff --git a/names-th.cabal b/names-th.cabal
--- a/names-th.cabal
+++ b/names-th.cabal
@@ -1,5 +1,5 @@
 name:                names-th
-version:             0.1.0.1
+version:             0.2.0.0
 synopsis:            Manipulate name strings for TH
 description:         This package includes functions to manipulate name string
                      and extra library functions for Template Haskell.
diff --git a/src/Language/Haskell/TH/Lib/Extra.hs b/src/Language/Haskell/TH/Lib/Extra.hs
--- a/src/Language/Haskell/TH/Lib/Extra.hs
+++ b/src/Language/Haskell/TH/Lib/Extra.hs
@@ -20,7 +20,7 @@
 
   -- * Functions to print message or errors when compile time
   -- $compileMessage
-  reportMessage, reportWarning, reportError,
+  reportWarning, reportError,
   ) where
 
 import System.IO (hPutStrLn, stderr)
@@ -73,21 +73,6 @@
 > -- Not handled by ghc logger
 > runIO . runQ $ qReport False "Foo"
  -}
-
--- | Print compile message from TH code.
---   Only display when TH_EXTRA_MESSAGE_OUTPUT environment variable is set.
---   When variable value string is 'as_warn' or 'as_warning' and
---   using 'Q' monad action, Output is put into ghc logger as warning.
---   Other cases are normal standard error output.
-reportMessage :: Quasi m => String -> m ()
-reportMessage s = runQ . runIO $ do
-  let lookupEnv n = lookup n `fmap` getEnvironment  {- for base-4.5 -}
-  mayOut <- lookupEnv "TH_EXTRA_MESSAGE_OUTPUT"
-  case mayOut of
-    Just out
-      | out `elem` ["as_warn", "as_warning"]  ->  qReport False s
-      | otherwise                             ->  hPutStrLn stderr s
-    Nothing                                   ->  return ()
 
 -- | Print compile warnings from TH code.
 reportWarning :: String -> Q ()