Make this module compile with the recent changes to the names of the
shift primops.
unitBS :: Int -> BitSet
unitBS x = case x of
+#if __GLASGOW_HASKELL__ >= 503
+ I# i# -> MkBS ((int2Word# 1#) `uncheckedShiftL#` i#)
+#else
I# i# -> MkBS ((int2Word# 1#) `shiftL#` i#)
+#endif
unionBS :: BitSet -> BitSet -> BitSet
unionBS (MkBS x#) (MkBS y#) = MkBS (x# `or#` y#)
in case word2Int# (s# `and#` (int2Word# 1#)) of
0# -> more
_ -> n : more
+#if __GLASGOW_HASKELL__ >= 503
+ shiftr x y = uncheckedShiftRL# x y
+#else
shiftr x y = shiftRL# x y
+#endif
-- intBS is a bit naughty.
intBS :: BitSet -> Int