@@ -133,12 +133,12 @@ scan s (Positive k) = parseBS p s === Just (toStrictBS $ L.take k s)
133133 if n > 0 then let !n' = n - 1 in Just n' else Nothing
134134
135135members :: [Word8] -> Property
136− members s = property . all (`S.memberWord8` set) s
137− where set = S.fromList s
136+members s = property $ all (`S.memberWord8` set) s
137+ where set = S.fromList s
138138
139139nonmembers :: [Word8] -> [Word8] -> Property
140− nonmembers s s' = property . not . any (`S.memberWord8` set) $ filter (not . (`elem` s)) s'
141− where set = S.fromList s
140+nonmembers s s' = property . not . any (`S.memberWord8` set) $ filter (not . (`elem` s)) s'
141+ where set = S.fromList s
142142
143143tests :: [Test]
144144tests = [