Commit an off-by-one fix that I forgot about.
Fixes SF bug #741600.
start <- (#peek regmatch_t, rm_so) p_match :: IO CInt
end <- (#peek regmatch_t, rm_eo) p_match :: IO CInt
let s = fromIntegral start; e = fromIntegral end
start <- (#peek regmatch_t, rm_so) p_match :: IO CInt
end <- (#peek regmatch_t, rm_eo) p_match :: IO CInt
let s = fromIntegral start; e = fromIntegral end
- return ( take (s-1) string,
+ return ( take s string,
take (e-s) (drop s string),
drop e string )
take (e-s) (drop s string),
drop e string )