testsuite/tests/stage1/T2632.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

-- #2632

module MkData where

import Language.Haskell.TH

op :: Num v => v -> v -> v
op a b = a + b

decl1 :: Q [Dec]
decl1 = [d| func = 0 `op` 3 |]

decl2 :: Q [Dec]
decl2 = [d| op x y = x
            func = 0 `op` 3 |]