blob: 4fff9776c9e729af8335e9a24adc8ad4dd99268e (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
-- Tests that the identifers/operators are properly linked even when:
--
-- * backquoted, parenthesized, vanilla
-- * qualified, not-qualified
--
module LinkingIdentifiers where
ident :: Int -> Int -> Int
x `ident` 2 = (x `ident` 2) + (x `LinkingIdentifiers.ident` 2)
ident x 2 = ident x 2 + LinkingIdentifiers.ident x 2
(++:++) :: Int -> Int -> Int
x ++:++ 2 = (x ++:++ 2) + (x LinkingIdentifiers.++:++ 2)
(++:++) x 2 = (++:++) x 2 + (LinkingIdentifiers.++:++) x 2
|
