Merge branch 'master' into feat/jobs
This commit is contained in:
commit
0df588c267
@ -44,6 +44,8 @@ splitCamel = map fromList . reverse . helper (error "hasChange undefined at star
|
||||
| sameCategory w c
|
||||
, null ws' = helper (Char.isLower w) items (c:ws) cs
|
||||
| sameCategory w c = helper hadChange items (c:ws) cs
|
||||
| Char.isLower w
|
||||
, Char.isUpper c = helper True (reverse ws :items) [c] cs
|
||||
| null ws' = helper True items (c:ws) cs
|
||||
| not hadChange = helper True (reverse ws':items) [c,w] cs
|
||||
| otherwise = helper True (reverse ws :items) [c] cs
|
||||
|
||||
Loading…
Reference in New Issue
Block a user