fix unit tests

ElaraLang · May 3, 2024 · 164dc28 · 164dc28
1 parent 99a34ae
commit 164dc28
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/test/Shunt.hs b/test/Shunt.hs
@@ -30,7 +30,7 @@ loadExpr :: Text -> PipelineRes (Expr 'Shunted)
 loadExpr source = finalisePipeline . runShuntPipeline . runRenamePipeline (createGraph []) operatorRenameState . runParsePipeline . runLexPipeline $ do
     let fp = "<tests>"
     tokens <- readTokensWith fp (toString source)
-    parsed <- parsePipeline exprParser fp tokens
+    parsed <- parsePipeline exprParser fp (toString source, tokens)
     desugared <- runDesugarPipeline $ runDesugar $ desugarExpr parsed
 
     renamed <- runReader Nothing $ renameExpr desugared