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

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

@@ -1,6 +1,7 @@
 {-# LANGUAGE RecordWildCards, LambdaCase, OverloadedStrings #-}
 module Stg.Interpreter.GC.RetainerAnalysis where
 
+import Control.Monad (unless)
 import Control.Monad.State
 import Data.Set (Set)
 import qualified Data.Set as Set

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

@@ -2,6 +2,7 @@
 {-# LANGUAGE QuasiQuotes, TemplateHaskell #-}
 module Stg.Interpreter.IOManager where
 
+import Control.Monad (forM_, unless, when)
 import Control.Monad.State
 import Data.IntMap (IntMap)
 import qualified Data.IntMap as IntMap

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

@@ -1,6 +1,7 @@
 {-# LANGUAGE RecordWildCards, LambdaCase, OverloadedStrings, PatternSynonyms, Strict #-}
 module Stg.Interpreter.PrimOp.Addr where
 
+import Control.Monad
 import Control.Monad.State
 import Data.Char
 import Data.Word

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

@@ -1,6 +1,7 @@
 {-# LANGUAGE RecordWildCards, LambdaCase, OverloadedStrings, PatternSynonyms #-}
 module Stg.Interpreter.PrimOp.ByteArray where
 
+import Control.Monad (when)
 import Data.Bits
 import Data.Int
 import Data.Word

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

@@ -1,6 +1,7 @@
 {-# LANGUAGE RecordWildCards, LambdaCase, OverloadedStrings, PatternSynonyms #-}
 module Stg.Interpreter.PrimOp.Concurrency where
 
+import Control.Monad
 import Control.Monad.State
 import qualified Data.ByteString.Char8 as BS8
 import qualified Data.IntMap as IntMap

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

@@ -1,6 +1,7 @@
 {-# LANGUAGE RecordWildCards, LambdaCase, OverloadedStrings, PatternSynonyms #-}
 module Stg.Interpreter.PrimOp.DelayWait where
 
+import Control.Monad
 import Control.Monad.State
 import Data.Time.Clock
 import Data.Fixed

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

@@ -1,6 +1,7 @@
 {-# LANGUAGE RecordWildCards, LambdaCase, OverloadedStrings, PatternSynonyms #-}
 module Stg.Interpreter.PrimOp.Exceptions where
 
+import Control.Monad (unless, when)
 import Control.Monad.State
 
 import Stg.Syntax

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

@@ -2,6 +2,7 @@
 module Stg.Interpreter.PrimOp.STM where
 
 import GHC.Stack
+import Control.Monad (forM_, when)
 import Control.Monad.State
 import Data.IntMap (IntMap)
 import qualified Data.IntMap as IntMap
@@ -44,7 +45,7 @@ TODO:
   - read paper from 6.1 transaction logs
 
 Q: is there a new tlog entry for each tvar operation or is it one entry per tvar?
-A: 
+A:
 
 Q: what is the difference between STM and SQL transactions?
     is it the value sampling?
@@ -500,4 +501,4 @@ primop  WriteTVarOp "writeTVar#" GenPrimOp
 
 primop  SameTVarOp "sameTVar#" GenPrimOp
    TVar# s a -> TVar# s a -> Int#
--}
+-}

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

@@ -2,6 +2,7 @@
 module Stg.Interpreter.Rts (initRtsSupport, extStgRtsSupportModule, globalStoreSymbols) where
 
 import GHC.Stack
+import Control.Monad (forM_)
 import Control.Monad.State
 import Control.Concurrent.MVar
 

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

@@ -1,6 +1,7 @@
 {-# LANGUAGE RecordWildCards, LambdaCase, OverloadedStrings, PatternSynonyms #-}
 module Stg.Interpreter.ThreadScheduler where
 
+import Control.Monad (forM_, when)
 import Control.Monad.State
 import Data.IntMap (IntMap)
 import qualified Data.IntMap as IntMap