Show position info in error messages

1 files changed, 7 insertions, 3 deletions

diff --git a/app/Main.hs b/app/Main.hs
index be5bdf3..d8fcb61 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -29,8 +29,10 @@ repl config env = do
         Just input -> do
             result <- lift $ runL config (runInlineScript "<repl>" env input)
             case result of
-                Left (LException ex) -> do
-                    outputStrLn $ "Error: " ++ ex
+                Left (LException mp ex) -> do
+                    outputStrLn $ case mp of
+                        Just p -> p ++ " error: " ++ ex
+                        Nothing -> "error: " ++ ex
                     repl config env
                 Right (newEnv, _) -> do
                     repl config newEnv
@@ -65,7 +67,9 @@ main = do
             Just scriptFileName -> do
                 result <- runL config (runScriptFile builtinEnv scriptFileName)
                 case result of
-                    Left (LException ex) -> putStrLn $ "Error: " ++ ex
+                    Left (LException mp ex) -> case mp of
+                        Just p -> putStrLn $ p ++ " error: " ++ ex
+                        Nothing -> putStrLn $ "error: " ++ ex
                     Right _ -> return ()
             Nothing -> do
                 putStrLn $ "Lang REPL"