Fix norm

X-R-G-B · Jan 8, 2024 · c3fd7a1 · c3fd7a1
1 parent e115651
commit c3fd7a1
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 2 deletions.
diff --git a/lvtc/app/Args.hs b/lvtc/app/Args.hs
@@ -47,7 +47,9 @@ parseArgs' (x:xs) args =
 parseArgs :: [String] -> IO (Either Args String)
 parseArgs args =
     getCurrentDirectory >>= \path ->
-    return (parseArgs' args (Args {action = Run, folderPath = path, outFile = "out.wasm"}))
+    return (parseArgs' args (Args {
+        action = Run, folderPath = path, outFile = "out.wasm"
+    }))
 
 hLine1 :: String
 hLine1 = "Usage: lvtc [OPTION] [FOLDER]\n"

diff --git a/lvtc/app/Run.hs b/lvtc/app/Run.hs
@@ -40,7 +40,10 @@ getFilesExpression [] = return []
 selectGoodFiles :: FilePath -> [FilePath] -> IO [FilePath]
 selectGoodFiles folder [] = return []
 selectGoodFiles folder (file:files)
-    | ".lvt" `isSuffixOf` trueFile = putStrLn ("- " ++ trueFile) >> selectGoodFiles folder files >>= (\others -> return (trueFile : others))
+    | ".lvt" `isSuffixOf` trueFile =
+            putStrLn ("- " ++ trueFile)
+            >> selectGoodFiles folder files
+                >>= (\others -> return (trueFile : others))
     | otherwise = selectGoodFiles folder files
     where
         trueFile = joinPath [folder, file]