testsuite/tests/ghci/scripts/T16804c.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

module T16804c where

import T16804a

a :: Test
a = A

localScope :: Test -> Bool
localScope arg = testFunction a arg

localScope2 :: Test -> Bool
localScope2 a = testFunction B a

localScope3 :: Test -> Bool
localScope3 a = testFunction a A