diff --git a/lvtc/app/Main.hs b/lvtc/app/Main.hs index f09d621..427c063 100644 --- 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 index 8d4ea22..259516d 100644 --- 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 index 9ea0dfe..c632596 100644 --- 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" ""