-splitBy isSeparator src
- = isSeparator `seq`
- case break isSeparator src
- of (last , [] ) -> last : []
- (first, sep:rest) -> first : splitBy isSeparator rest
+splitBy isSep src
+ = case break isSep src
+ of (last , [] ) -> [last]
+ (first, _sep:rest) -> first : splitBy isSep rest