summaryrefslogtreecommitdiff
path: root/app/Builtins.hs
diff options
context:
space:
mode:
authorMirek Kratochvil <exa.exa@gmail.com>2022-11-26 13:35:19 +0100
committerMirek Kratochvil <exa.exa@gmail.com>2022-11-26 13:35:19 +0100
commita26f0f29c02bfb4ec56781397d60abeb498b8c12 (patch)
tree9c351e8d2283a8b2564ea770ca0d42d2c4d30701 /app/Builtins.hs
parent58367975aed706172487727330670d62fcb0e6d1 (diff)
downloadprlg-a26f0f29c02bfb4ec56781397d60abeb498b8c12.tar.gz
prlg-a26f0f29c02bfb4ec56781397d60abeb498b8c12.tar.bz2
massive cleanup
Diffstat (limited to 'app/Builtins.hs')
-rw-r--r--app/Builtins.hs20
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