@@ -145,11 +145,11 @@ scan s (Positive k) = parseT p s === Just (toStrict $ L.take k s)
145145 if n > 0 then let !n' = n - 1 in Just n' else Nothing
146146
147147members :: String -> Property
148−members s = property . all (`S.memberWord8` set) s
148+members s = property . all (`S.member` set) s
149149 where set = S.fromList s
150150
151151nonmembers :: String -> String -> Property
152−nonmembers s s' = property . not . any (`S.memberWord8` set) $ filter (not . (`elem` s)) s'
152+nonmembers s s' = property . not . any (`S.member` set) $ filter (not . (`elem` s)) s'
153153 where set = S.fromList s
154154
155155tests :: [Test]