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

Merge branch 'master' into feat/jobs

Browse Source
This commit is contained in:
Gregor Kleen 2018-10-02 19:38:18 +02:00
commit 0df588c267
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 | sameCategory w c
, null ws' = helper (Char.isLower w) items (c:ws) cs , null ws' = helper (Char.isLower w) items (c:ws) cs
| sameCategory w c = helper hadChange 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 | null ws' = helper True items (c:ws) cs
| not hadChange = helper True (reverse ws':items) [c,w] cs | not hadChange = helper True (reverse ws':items) [c,w] cs
| otherwise = helper True (reverse ws :items) [c] cs | otherwise = helper True (reverse ws :items) [c] cs