Ticket #7918: T7918A.hs

File T7918A.hs, 461 bytes (added by edsko, 19 months ago)
Line 
1{-# LANGUAGE TemplateHaskell #-}
2module T7918A where
3import Language.Haskell.TH.Quote
4qq = QuasiQuoter {
5         quoteExp  = \str -> case str of
6                                "a" -> [| True |]
7                                "b" -> [| id True |]
8                                "c" -> [| True || False |]
9                                "d" -> [| False |]
10       , quotePat  = undefined
11       , quoteType = undefined
12       , quoteDec  = undefined
13       }