Read COMPLETE sets from external packages
[ghc.git] / testsuite / tests / patsyn / should_compile / T13350 / T13350.hs
1 {-# OPTIONS_GHC -Wincomplete-patterns #-}
2 module T13350 where
3
4 import Boolean
5
6 booleanToInt :: Boolean -> Int
7 booleanToInt F = 0
8 booleanToInt T = 1