Fix #10489
[ghc.git] / testsuite / tests / typecheck / should_compile / T10489.hs
1 module T10489 where
2
3 convert d = let d' = case d of '0' -> '!' in d'