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


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

module T17989B (foo, bar) where

foo :: Int -> String
foo n =
  let x = "B.foo-"
      y = priv n
  in x <> y

bar :: Int -> String
bar n = "B.bar" <> show n

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