summaryrefslogtreecommitdiff
path: root/testsuite/tests/ghc-regress/typecheck/should_compile/tc070.hs
blob: 831195f9f6269fb3634cab100d0880d1fa68cf20 (plain)
1
2
3
4
5
6
7
8
9
module ShouldSucceed where


data Boolean = FF | TT


idb :: Boolean -> Boolean
idb x = x