Changeset 19959 for src/Pugs/Meta
- Timestamp:
- 02/20/08 18:52:10 (9 months ago)
- Files:
-
- 1 modified
-
src/Pugs/Meta/Str.hs (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
src/Pugs/Meta/Str.hs
r16504 r19959 15 15 _StrClass = mkPureClass "Str" 16 16 [ "reverse" ... Str.reverse 17 , "join" ... Str. join17 , "join" ... Str.intercalate 18 18 , "chop" ... (\str -> if Str.null str then str else Str.init str) 19 19 , "index" ... (\str sub pos -> fromMaybe (-1) $ Str.findSubstring sub $ Str.drop pos str)
