diff options
| author | Ben Sima <ben@bsima.me> | 2020-04-15 09:54:10 -0700 |
|---|---|---|
| committer | Ben Sima <ben@bsima.me> | 2020-04-15 10:06:56 -0700 |
| commit | f4b8c0df041b063c0b47d2ec6c818a9c202fd833 (patch) | |
| tree | 01ad246a83fda29c079847b3397ca6509a7f6106 /Com/Simatime/Language/Bs/Repl.hs | |
| parent | 6ed475ca94209ce92e75f48764cb9d361029ea26 (diff) | |
Re-namespacing
Moving away from the DNS-driven namespacing toward more condensed names,
mostly because I don't like typing so much.
Diffstat (limited to 'Com/Simatime/Language/Bs/Repl.hs')
| -rw-r--r-- | Com/Simatime/Language/Bs/Repl.hs | 33 |
1 files changed, 0 insertions, 33 deletions
diff --git a/Com/Simatime/Language/Bs/Repl.hs b/Com/Simatime/Language/Bs/Repl.hs deleted file mode 100644 index 64ffaa2..0000000 --- a/Com/Simatime/Language/Bs/Repl.hs +++ /dev/null @@ -1,33 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE NoImplicitPrelude #-} -module Language.Bs.Repl ( -mainLoop -) where - -import Control.Monad.Trans -import Data.String -import Data.Text as T -import Language.Bs.Eval -import Protolude -import System.Console.Haskeline - -type Repl a = InputT IO a - -mainLoop :: IO () -mainLoop = runInputT defaultSettings repl - -repl :: Repl () -repl = do - minput <- getInputLine "bs> " - case minput of - Nothing -> outputStrLn "bye." - Just input -> (liftIO $ process input) >> repl - --Just input -> (liftIO $ processToAST input) >> repl - -process :: String -> IO () -process str = do - res <- safeExec $ evalText $ T.pack str - either putStrLn return res - -processToAST :: String -> IO () -processToAST str = print $ runParseTest $ T.pack str |