Add src position to data structures

1 files changed, 4 insertions, 4 deletions

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