khibino/haskell-relational-record
1
1
Fork 0
mirror of https://github.com/khibino/haskell-relational-record.git synced 2025-01-05 20:04:49 +03:00
Code Issues Projects Releases Wiki Activity

Add TH combinator maybeD.

Browse Source
This commit is contained in:
Kei Hibino 2013-05-08 14:43:38 +09:00
parent f52371e0ad
commit d92fc81b1f
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
names-th/src/Language/Haskell/TH/Name/Extra.hs
View File

@ -4,7 +4,7 @@ module Language.Haskell.TH.Name.Extra (
compileErrorIO, compileError,
integralE, simpleValD
integralE, simpleValD, maybeD
) where
import Language.Haskell.TH
@ -32,3 +32,6 @@ simpleValD var typ expr = do
sig <- sigD var typ
val <- valD (varP var) (normalB expr) []
return [sig, val]
maybeD :: (a -> Q [Dec]) -> Maybe a -> Q [Dec]
maybeD = maybe (return [])