testsuite/tests/ghci.debugger/scripts/T17989A.hs


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

module T17989A (foo, bar) where

foo :: Int -> String
foo n = x <> y
  where
    x = "A.foo-"
    y = priv n

bar :: String
bar = "A.bar"

priv :: Int -> String
priv n = "A.foo-" <> show n