names-th 0.1.0.1 → 0.2.0.0

raw patch · 2 files changed

+2/−17 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• names-th.cabal +1/−1
• src/Language/Haskell/TH/Lib/Extra.hs +1/−16

@@ -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.

@@ -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 ()