khibino/haskell-relational-record
1
1
Fork 0
mirror of https://github.com/khibino/haskell-relational-record.git synced 2024-11-29 06:37:03 +03:00
Code Issues Projects Releases Wiki Activity

Generalize compileError into Quasi constraint.

Browse Source
This commit is contained in:
Kei Hibino 2014-10-09 14:56:44 +09:00
parent 28fe9efeb5
commit a5dd1c86ed
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
names-th/src/Language/Haskell/TH/Lib/Extra.hs
View File

@ -25,13 +25,12 @@ module Language.Haskell.TH.Lib.Extra (
) where
import Language.Haskell.TH
(Ppr, ppr, Q, runQ, runIO,
(Ppr, ppr, Q, runQ,
Name, Dec, sigD, valD, TypeQ, varP, normalB,
ExpQ, litE, integerL)
import Language.Haskell.TH.PprLib (Doc)
import Language.Haskell.TH.Syntax (Quasi)
{- $extraTemplateFunctions
Extra functions to generate haskell templates.
-}
@ -65,9 +64,10 @@ which generating haskell templates.
-}
-- | Raise compile error from TH code.
compileError :: String -> Q a
compileError = runIO . compileErrorIO
compileError :: Quasi m => String -> m a
compileError = runQ . fail
-- | 'IO' version of 'compileError'.
compileErrorIO :: String -> IO a
compileErrorIO = ioError . userError
compileErrorIO = compileError
{-# DEPRECATED compileErrorIO "Use compileError instead of this" #-}