Commit 96b18ae0 authored by John van Groningen's avatar John van Groningen
Browse files

fix function non_space_left

parent ba3c1b44
......@@ -951,7 +951,9 @@ where
non_space_left :: !Int -> Int
non_space_left i
| i < size_s && isSpace s.[i] = non_space_left (i+1)
| i < size_s && isSpace s.[i]
= non_space_left (i+1)
= i
lSplit :: !.Char !String -> [String]
lSplit c s = lsplit c s (dec (size s)) []
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment