Fix lexeme wtf

X-R-G-B · Jan 8, 2024 · 225d828 · 225d828
1 parent 5bc2f0c
commit 225d828
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 4 deletions.
diff --git a/lvtc/app/Main.hs b/lvtc/app/Main.hs
@@ -11,7 +11,6 @@ import Expression (parseExpresion, parseAllExpression)
 import Parser (runParser)
 import Alias (proceedAlias)
 import ParseLvt (parseInstruction, parseInstructions, parseFuncDeclaration)
-import ParseLvt (parseInstruction, parseInstructions)
 import WatLike (aSTToWatLike)
 import AST
 

diff --git a/lvtc/src/ParseLvt.hs b/lvtc/src/ParseLvt.hs
@@ -233,7 +233,7 @@ parseFunction :: Parser Instruction
 parseFunction = parseCall
 
 parseReturn :: Parser Instruction
-parseReturn = Return <$> ((parseString "<- " <|> parseString "<-") *> parseValue)
+parseReturn = Return <$> ((parseString "<-") *> parseValue)
 
 parseType :: Parser String
 parseType =

diff --git a/lvtc/test/UTParseLvt.hs b/lvtc/test/UTParseLvt.hs
@@ -73,9 +73,9 @@ utParserLvt = testGroup "Parse Lvt"
         ""
         (Function ("a", [Integer 0, StringView "abc", Boolean False]))
   , testCase "return value" $
-      testParserHelper "<- 0;\n"
+      testParserHelpers "<- 0;\n"
         ""
-        (Return (Integer 0))
+        [(Return (Integer 0))]
   , testCase "condition if" $
       testParserHelper "if (a)\n{\nb(0);\n};\n"
         ""