blob: dcf2549979925b217683cfb331c59a6ee095bf08 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE QuasiQuotes #-}
module Test10276 where
f1 = [| bar |]
f2 = [e| bar |]
class QQExp a b where
qqExp x = [||fst $ runState $$(qqExpM x)
((0,M.empty) :: (Int,M.Map L.Name [L.Operand]))||]
class QQExp2 a b where
qqExp x = [e||fst $ runState $$(qqExpM x)
((0,M.empty) :: (Int,M.Map L.Name [L.Operand]))||]
|
