summaryrefslogtreecommitdiff
path: root/testsuite/tests/rename/should_fail/T16504.hs
blob: 8ee426f02542491f230fc73ada6cca11e6bb1c97 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
-- Type signature and definition with name typo
module M where

-- Both in global scope
simpleFuntcion :: Int -> Bool
simpleFunction i = i > 5
simpleFunction2 i = i < 5

-- Both in local scope
f x = anotherFunction x
  where anotherFunction :: Int -> Bool
        anotherFuntcion i = i > 5

-- Global signature, local definition
nonexistentFuntcion :: Int -> Bool
g x = nonexistentFunction x
  where nonexistentFunction i = i > 5