aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/Lib.hs7
1 files changed, 6 insertions, 1 deletions
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