diff options
| author | Mirek Kratochvil <exa.exa@gmail.com> | 2022-11-26 13:35:19 +0100 |
|---|---|---|
| committer | Mirek Kratochvil <exa.exa@gmail.com> | 2022-11-26 13:35:19 +0100 |
| commit | a26f0f29c02bfb4ec56781397d60abeb498b8c12 (patch) | |
| tree | 9c351e8d2283a8b2564ea770ca0d42d2c4d30701 /app/Builtins.hs | |
| parent | 58367975aed706172487727330670d62fcb0e6d1 (diff) | |
| download | prlg-a26f0f29c02bfb4ec56781397d60abeb498b8c12.tar.gz prlg-a26f0f29c02bfb4ec56781397d60abeb498b8c12.tar.bz2 | |
massive cleanup
Diffstat (limited to 'app/Builtins.hs')
| -rw-r--r-- | app/Builtins.hs | 20 |
1 files changed, 14 insertions, 6 deletions
diff --git a/app/Builtins.hs b/app/Builtins.hs index 4c08884..cc0a4e9 100644 --- a/app/Builtins.hs +++ b/app/Builtins.hs @@ -1,17 +1,25 @@ module Builtins where import Code -import Control.Monad.IO.Class -import Control.Monad.Trans.Class -import Control.Monad.Trans.State.Lazy -import Data.Functor.Identity + ( Builtin(..) + , BuiltinFn + , Cho(..) + , Datum(..) + , Instr(..) + , Interp(..) + , heapStruct + ) +import Control.Monad.IO.Class (liftIO) +import Control.Monad.Trans.Class (lift) +import Control.Monad.Trans.State.Lazy (get, gets, modify) +import Data.Functor.Identity (runIdentity) import Data.List (intercalate) import qualified Data.Map as M -import Env hiding (PrlgEnv) +import Env (PrlgEnv(..), findStruct) import qualified IR import Interpreter (backtrack) import qualified Operators as O -import System.Console.Haskeline +import System.Console.Haskeline (getInputChar, outputStr, outputStrLn) bi = Builtin |
