external-stg-interpreter: add missing import for ghc-9.6

Author: TristanCacqueray

external-stg-interpreter/lib/Stg/Interpreter.hs

@@ -10,6 +10,7 @@ import Foreign.Ptr
 import Control.Concurrent
 import Control.Concurrent.MVar
 import qualified Control.Concurrent.Chan.Unagi.Bounded as Unagi
+import Control.Monad (forM_, forM, unless, when)
 import Control.Monad.State.Strict
 import Control.Exception
 import qualified Data.Primitive.ByteArray as BA

external-stg-interpreter/lib/Stg/Interpreter/Base.hs

@@ -4,6 +4,7 @@ module Stg.Interpreter.Base where
 import Data.Word
 import Foreign.Ptr
 import Foreign.C.Types
+import Control.Monad (unless, forM, forM_)
 import Control.Monad.State.Strict
 import Data.List (foldl')
 import Data.Set (Set)

external-stg-interpreter/lib/Stg/Interpreter/Debug.hs

@@ -1,6 +1,7 @@
 {-# LANGUAGE RecordWildCards, LambdaCase, OverloadedStrings #-}
 module Stg.Interpreter.Debug where
 
+import Control.Monad (forM_, unless)
 import qualified GHC.Exts as Exts
 import qualified Data.Set as Set
 import qualified Data.IntMap as IntMap

external-stg-interpreter/lib/Stg/Interpreter/Debugger.hs

@@ -2,6 +2,7 @@
 module Stg.Interpreter.Debugger where
 
 import GHC.Stack
+import Control.Monad (unless)
 import Control.Monad.State
 import qualified Data.Set as Set
 import qualified Data.Map as Map

external-stg-interpreter/lib/Stg/Interpreter/Debugger/Internal.hs

@@ -3,6 +3,7 @@ module Stg.Interpreter.Debugger.Internal where
 
 import Text.Printf
 import qualified Text.Read as Text
+import Control.Monad (forM_, unless)
 import Control.Monad.State
 import qualified Data.List as List
 import qualified Data.Set as Set

external-stg-interpreter/lib/Stg/Interpreter/Debugger/Region.hs

@@ -2,6 +2,7 @@
 module Stg.Interpreter.Debugger.Region where
 
 import Text.Printf
+import Control.Monad (forM_, unless, when)
 import Control.Monad.State
 import qualified Data.List as List
 import qualified Data.Set as Set

external-stg-interpreter/lib/Stg/Interpreter/FFI.hs

@@ -41,6 +41,7 @@ import Data.IntMap (IntMap)
 import qualified Data.IntMap as IntMap
 
 import GHC.Stack
+import Control.Monad (zipWithM)
 import Control.Monad.State.Strict
 import Control.Concurrent.MVar
 
@@ -503,4 +504,4 @@ buildCWrapperHsTypeMap mods = do
   liftIO $ do
     putStrLn $ "CWrappers:"
     forM_ (Map.toList m) $ \(k, v) -> print k >> print v
-  -}
+  -}

external-stg-interpreter/lib/Stg/Interpreter/GC.hs

@@ -2,6 +2,7 @@
 module Stg.Interpreter.GC where
 
 import Text.Printf
+import Control.Monad (unless, forM_, when)
 import Control.Monad.State
 import qualified Data.Map as Map
 import Data.IntMap (IntMap)

external-stg-interpreter/lib/Stg/Interpreter/GC/GCRef.hs

@@ -1,6 +1,7 @@
 {-# LANGUAGE RecordWildCards, LambdaCase, OverloadedStrings, FlexibleInstances #-}
 module Stg.Interpreter.GC.GCRef where
 
+import Control.Monad (forM_)
 import Control.Monad.State
 import Foreign.Ptr
 

external-stg-interpreter/lib/Stg/Interpreter/GC/LiveDataAnalysis.hs

@@ -3,6 +3,7 @@
 module Stg.Interpreter.GC.LiveDataAnalysis where
 
 import GHC.Generics
+import Control.Monad (foldM, forM_, unless)
 import Control.Monad.State
 import qualified Data.IntSet as IntSet
 import qualified Data.Map as Map