T2632.hs 194 Bytes
Newer Older
simonpj's avatar
simonpj committed
1 2 3 4 5 6
-- Trac #2632

module MkData where

import Language.Haskell.TH

7
op :: Num v => v -> v -> v
simonpj's avatar
simonpj committed
8 9 10 11
op a b = a + b

decl1 = [d| func = 0 `op` 3 |]

12
decl2 = [d| op x y = x
simonpj's avatar
simonpj committed
13 14
            func = 0 `op` 3 |]