From 335ed87f5d672fd6a3de856fef62963c2946318f Mon Sep 17 00:00:00 2001
From: Jan Tuomi <jan.tuomi@valuemotive.com>
Date: Fri, 23 Sep 2022 11:05:28 +0300
Subject: Add dumb REPL

---
 src/Lib.hs | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/Lib.hs b/src/Lib.hs
index 7235c7e..28ab062 100644
--- a/src/Lib.hs
+++ b/src/Lib.hs
@@ -1,6 +1,6 @@
 module Lib (
     runScriptFile,
-    LContext
+    runInlineScript,
 ) where
 
 import qualified Data.Map as M
@@ -9,6 +9,7 @@ import Control.Monad.Except
 import Control.Monad.Reader
 import Data.List
 import Debug.Trace
+import System.Console.Haskeline
 import Types
 import Utils
 
@@ -75,6 +76,10 @@ parse src = []
 runScriptFile :: String -> LContext ()
 runScriptFile fileName = do
     src <- liftIO $ readFile fileName
+    runInlineScript src
+
+runInlineScript :: String -> LContext ()
+runInlineScript src = do
     tokenized <- tokenize src
     config <- ask
     when (configVerboseMode config) $ liftIO $ putStrLn $ "tokenized:\t\t" ++ show tokenized
-- 
cgit v1.3