From 0a56af62ffa95360587728b82c947a2936743a4c Mon Sep 17 00:00:00 2001
From: Jan Tuomi <jans.tuomi@gmail.com>
Date: Tue, 27 Sep 2022 15:10:00 +0300
Subject: Add src position to data structures

---
 src/Lib.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'src/Lib.hs')

diff --git a/src/Lib.hs b/src/Lib.hs
index a2c65c6..a8a536f 100644
--- a/src/Lib.hs
+++ b/src/Lib.hs
@@ -15,11 +15,11 @@ import Evaluator ( evaluate )
 runScriptFile :: Env -> String -> LContext (Env, [AST])
 runScriptFile env fileName = do
     src <- liftIO $ readFile fileName
-    runInlineScript env src
+    runInlineScript fileName env src
 
-runInlineScript :: Env -> String -> LContext (Env, [AST])
-runInlineScript env src = do
-    tokenized <- tokenize src
+runInlineScript :: String -> Env -> String -> LContext (Env, [AST])
+runInlineScript fileName env src = do
+    tokenized <- tokenize fileName src
     config <- ask
     when (configVerboseMode config) $ liftIO $ putStrLn $ "tokenized:\t\t" ++ show tokenized
     parsed <- parse tokenized
-- 
cgit v1.3