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


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

module T3000S (sshow) where

sshow :: Int -> String
sshow n =
    let nest  :: Int -> String
        nest 0 = " nest: " ++ hidden 0
        nest k = " nest: " ++ show k
    in
        " show: " ++ nest n

hidden :: Int -> String
hidden 1 = " hidden: 1"
hidden n = " hidden: " ++ show n