ba55fb97b76920e7025ec3c62a0064a3fdf8828e
[ghc.git] / testsuite / tests / cabal / sigcabal02 / q / Q.hs
1 module Q where
2
3 import qualified Map
4 import Map(Map)
5
6 mymember :: Int -> Map Int a -> Bool
7 mymember k m = Map.member k m || Map.member (k + 1) m