mirror of
https://gitlab.com/scemama/EZFIO.git
synced 2024-12-22 12:23:34 +01:00
Error in previous commit
This commit is contained in:
parent
f77c499fc2
commit
0c097dac4f
@ -104,6 +104,7 @@ let ltrim s =
|
||||
| ' ' -> do_work (String.sub s 1 (l-1)) (l-1)
|
||||
| _ -> s
|
||||
in
|
||||
let l = String.length s in
|
||||
if (l > 0) then do_work s l
|
||||
else s
|
||||
;;
|
||||
@ -116,6 +117,7 @@ let rtrim s =
|
||||
| ' ' -> do_work (String.sub s 0 (newl)) (newl)
|
||||
| _ -> s
|
||||
in
|
||||
let l = String.length s in
|
||||
if (l > 0) then do_work s l
|
||||
else s
|
||||
;;
|
||||
|
Loading…
Reference in New Issue
Block a user