aboutsummaryrefslogblamecommitdiff
path: root/hypsrc-test/src/LinkingIdentifiers.hs
blob: 4fff9776c9e729af8335e9a24adc8ad4dd99268e (plain) (tree)
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