testsuite/tests/simplCore/should_compile/T16288C.hs


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

module T16288C where

data Doc = Empty | Beside Doc

hcat :: Doc -> Doc
hcat Empty = Empty
hcat xs = hcat xs

pretV = hcat Empty

foo :: Doc -> Doc
foo Empty = hcat Empty
foo val = Beside val