fraport/fradrive
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix splitCamel

Browse Source
This commit is contained in:
Gregor Kleen 2018-10-02 19:37:16 +02:00
parent bf060c4654
commit ead35c4518
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Utils/PathPiece.hs
View File

@ -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