feat[dev]: import Prelude

src/Language/Scalie/Compiler/Bytecode.hs

@@ -1,23 +1,11 @@
-{-# LANGUAGE Trustworthy #-} -- uses vector operations
-{-# LANGUAGE OverloadedRecordDot #-}
-module Language.Scalie.Compiler.Bytecode (EntryPoint, compile, CompilationError(..)) where
-import Language.Scalie.Core.Module (Module (definitions))
-import Data.Text (Text)
-import Language.Scalie.Core.Provenance (Provenance (value, Provenance, source))
-import Language.Scalie.Core.Provenance.SourceLocation (SourceLocation)
-import Language.Scalie.Bytecode.Object qualified as Bytecode
+{-# LANGUAGE Safe #-}
+module Language.Scalie.Compiler.Bytecode (EntryPoint, CompilationError(..)) where
+
+-- meta
 import Data.Kind (Type)
-import Data.Either (Either (Left, Right))
-import Data.Vector qualified as Vector
-import Control.Category ((.))
-import Data.Function (($))
-import Data.Functor ((<$>))
-import Data.Map.Implicit qualified as ImplicitMap
-import Data.Maybe (Maybe(Nothing, Just))
-import Language.Scalie.Core.Definition (Definition(body, name))
-import Language.Scalie.Core.Expression (Expression(RawInt))
-import Language.Scalie.Bytecode.Instruction qualified as Instruction
-import Prelude (undefined)
+
+-- data structures
+import Data.Text (Text)
 
 -- | The name of the entrypoint function
 
@@ -26,15 +14,3 @@ type EntryPoint = Text
 
 type CompilationError :: Type
 newtype CompilationError = NameNotFound Text
-
-compile :: Module (Provenance SourceLocation) -> EntryPoint -> Either CompilationError Bytecode.Object
-compile mod entry = undefined
-{- let
-  topLevelDefinitions = mod.definitions.value
-  in Bytecode.Object . Vector.fromList <$> case ImplicitMap.lookup entry topLevelDefinitions of
-    Nothing -> Left $ NameNotFound entry
-    Just def -> Right
-      [ (\(RawInt i) -> Instruction.PushInteger i) <$> def.body
-      , Provenance def.name.source (Instruction.ReturnValues 1)
-      ]
--}