ghc-exactprint-1.14.0.0: tests/examples/pre-ghc910/Q.hs

module Q where

import qualified Map
import Map(Map)

mymember :: Int -> Map Int a -> Bool
mymember k m = Map.member k m || Map.member (k + 1) m