@@ -145,7 +145,7 @@ 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.member` set) s
148+members s = property $ all (`S.member` set) s
149149 where set = S.fromList s
150150
151151nonmembers :: String -> String -> Property