cleanup

src/Gyehoek/Stack/Syntax.hs

@@ -18,24 +18,15 @@ module Gyehoek.Stack.Syntax
   ) where
 
 import Control.Lens
-import Data.List (List)
-import GHC.Generics (Generic)
-import Data.HashMap.Strict (HashMap)
-import Language.SexpGrammar (SexpIso, (>>>), (:-))
+import Language.SexpGrammar (SexpIso, (>>>))
 import Language.SexpGrammar qualified as S
 import Language.SexpGrammar.Generic
-import Data.Coerce (coerce)
-import Data.Text (Text)
 import qualified Gyehoek.Sexp
-import Language.Haskell.TH.Quote (QuasiQuoter)
-import Data.Data (Data)
-import qualified Data.HashMap.Strict as H
-import Effectful
 import Gyehoek.Scheme.Syntax (Name(..), Lit(..), Prim(..))
 import GHC.Exts (IsList(..))
 import Data.List (intersperse)
-import Control.DeepSeq (NFData)
 import Gyehoek.CPS.Syntax (Imm(..), Obj(..), Hob(..), labelName)
+import Gyehoek.Prelude
 
 
 newtype Program = MkProgram

src/Gyehoek/Stack/VM.hs

@@ -9,18 +9,10 @@ module Gyehoek.Stack.VM
   ) where
 
 import Gyehoek.Stack.Syntax
-import Data.List (List)
-import GHC.Generics (Generic)
 import Control.Lens
-import Data.HashMap.Strict (HashMap)
-import Data.Text (Text)
 import qualified Data.HashMap.Strict as H
-import Data.String.Interpolate (i)
-import Gyehoek.Scheme.Syntax (Sexp(..))
-import Debug.Pretty.Simple (pTraceShowIdForceColor)
-import qualified Data.List.NonEmpty as NE
-import Data.Functor (($>))
 import Data.List (unfoldr)
+import Gyehoek.Prelude
 
 
 data VM = MkVM