Fix too long line

MINOR
X-R-G-B · Dec 29, 2023 · 9b50698 · 9b50698
1 parent bcd2a32
commit 9b50698
Showing 1 changed file with 11 additions and 4 deletions.
diff --git a/lvtc/src/Alias.hs b/lvtc/src/Alias.hs
@@ -28,10 +28,13 @@ parseAliasName = parseAllCharUntil " "
 parseAliasValue :: Parser String
 parseAliasValue = parseAllCharUntil ";\n"
 
+parseAlias' :: Parser String
+parseAlias' = (parseAliasKeyword *> parseAliasName <* many (parseChar ' '))
+
 parseAlias :: Parser Alias.Alias
 parseAlias = Parser f
     where
-        f str = case runParser (parseAliasKeyword *> parseAliasName <* many (parseChar ' ')) str of
+        f str = case runParser parseAlias' str of
             Nothing -> Nothing
             Just (key, xs) -> case runParser parseAliasValue xs of
                 Nothing -> Nothing
@@ -41,17 +44,21 @@ replaceAliasInString :: Alias.Alias -> String -> String
 replaceAliasInString _ [] = []
 replaceAliasInString (Alias.Alias key value) (x:xs)
     | take (length key) (x:xs) == key =
-        value ++ replaceAliasInString (Alias.Alias key value) (drop (length key) (x:xs))
+        value ++ replaceAliasInString
+                    (Alias.Alias key value)
+                    (drop (length key) (x:xs))
     | otherwise = x : replaceAliasInString (Alias.Alias key value) xs
 
 replaceAlias :: Alias -> [Expression] -> [Expression]
 replaceAlias _ [] = []
 replaceAlias alias ((Expression.Alias _):xs) =
     replaceAlias alias xs
 replaceAlias (Alias.Alias key value) ((Expression.Function str):xs) =
-    (Expression.Function (replaceAliasInString (Alias.Alias key value) str)) : (replaceAlias (Alias.Alias key value) xs)
+    (Expression.Function (replaceAliasInString (Alias.Alias key value) str))
+    : (replaceAlias (Alias.Alias key value) xs)
 replaceAlias (Alias.Alias key value) ((Expression.Comment str):xs) =
-    (Expression.Comment (replaceAliasInString (Alias.Alias key value) str)) : (replaceAlias (Alias.Alias key value) xs)
+    (Expression.Comment (replaceAliasInString (Alias.Alias key value) str))
+    : (replaceAlias (Alias.Alias key value) xs)
 
 replaceAllAlias :: [Alias] -> [Expression] -> [Expression]
 replaceAllAlias [] exprs = exprs