blob: 9d41f658d58a06951e9ae275b9e786d1c40eeb52 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
{-# LANGUAGE TemplateHaskell #-}
module T17608 where
$([d| infixl 4 `f`
f :: Bool
f = let infixl 4 `h`
h :: () -> Bool -> Bool
h _ _ = True in
h () (g () ())
where
infixl 4 `g`
g :: () -> () -> Bool
g _ _ = True
infixl 4 `n`
class C a where
infixl 4 `m`
m :: a -> a -> a
n :: a -> a -> a
|])
|
