Reduce runtime complexity normalizeTypeSignatures

hspec · Oct 22, 2024 · 3445de9 · 3445de9
1 parent 461b4db
commit 3445de9
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/src/Util.hs b/src/Util.hs
@@ -71,11 +71,13 @@ gitCheckIgnoreFeedback err
 normalizeTypeSignatures :: String -> String
 normalizeTypeSignatures = normalize . concatMap replace
   where
+    normalize :: [Char] -> [Char]
     normalize = \case
-      '\n' : ' ' : ' ' : xs -> normalizeTypeSignatures (' ' : dropWhile (== ' ') xs)
-      x : xs -> x : normalizeTypeSignatures xs
+      '\n' : ' ' : ' ' : xs -> normalize (' ' : dropWhile (== ' ') xs)
+      x : xs -> x : normalize xs
       [] -> []
 
+    replace :: Char -> [Char]
     replace c = case c of
       '\8759' -> "::"
       '\8594' -> "->"