aboutsummaryrefslogtreecommitdiff
path: root/hypsrc-test/src/LinkingIdentifiers.hs
blob: b195c2c620ea52b29c73982f8113b5adb62933a4 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
{-# LANGUAGE Haskell2010 #-}
-- 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