From ead35c4518b4d899caf51cc535b101d3154d2c22 Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gkleen@yggdrasil.li>
Date: Tue, 2 Oct 2018 19:37:16 +0200
Subject: [PATCH] Fix splitCamel

---
 src/Utils/PathPiece.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/Utils/PathPiece.hs b/src/Utils/PathPiece.hs
index cff91d976..0aa1a364c 100644
--- a/src/Utils/PathPiece.hs
+++ b/src/Utils/PathPiece.hs
@@ -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