Skip to content

Commit 7a43e9d

Browse files
external-stg-interpreter: add missing import for ghc-9.6
1 parent 80e408e commit 7a43e9d

File tree

20 files changed

+23
-3
lines changed

20 files changed

+23
-3
lines changed

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

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -10,6 +10,7 @@ import Foreign.Ptr
1010
import Control.Concurrent
1111
import Control.Concurrent.MVar
1212
import qualified Control.Concurrent.Chan.Unagi.Bounded as Unagi
13+
import Control.Monad (forM_, forM, unless, when)
1314
import Control.Monad.State.Strict
1415
import Control.Exception
1516
import qualified Data.Primitive.ByteArray as BA

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

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -4,6 +4,7 @@ module Stg.Interpreter.Base where
44
import Data.Word
55
import Foreign.Ptr
66
import Foreign.C.Types
7+
import Control.Monad (unless, forM, forM_)
78
import Control.Monad.State.Strict
89
import Data.List (foldl')
910
import Data.Set (Set)

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

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -1,6 +1,7 @@
11
{-# LANGUAGE RecordWildCards, LambdaCase, OverloadedStrings #-}
22
module Stg.Interpreter.Debug where
33

4+
import Control.Monad (forM_, unless)
45
import qualified GHC.Exts as Exts
56
import qualified Data.Set as Set
67
import qualified Data.IntMap as IntMap

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

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -2,6 +2,7 @@
22
module Stg.Interpreter.Debugger where
33

44
import GHC.Stack
5+
import Control.Monad (unless)
56
import Control.Monad.State
67
import qualified Data.Set as Set
78
import qualified Data.Map as Map

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

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -3,6 +3,7 @@ module Stg.Interpreter.Debugger.Internal where
33

44
import Text.Printf
55
import qualified Text.Read as Text
6+
import Control.Monad (forM_, unless)
67
import Control.Monad.State
78
import qualified Data.List as List
89
import qualified Data.Set as Set

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

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -2,6 +2,7 @@
22
module Stg.Interpreter.Debugger.Region where
33

44
import Text.Printf
5+
import Control.Monad (forM_, unless, when)
56
import Control.Monad.State
67
import qualified Data.List as List
78
import qualified Data.Set as Set

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

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -41,6 +41,7 @@ import Data.IntMap (IntMap)
4141
import qualified Data.IntMap as IntMap
4242

4343
import GHC.Stack
44+
import Control.Monad (zipWithM)
4445
import Control.Monad.State.Strict
4546
import Control.Concurrent.MVar
4647

@@ -503,4 +504,4 @@ buildCWrapperHsTypeMap mods = do
503504
liftIO $ do
504505
putStrLn $ "CWrappers:"
505506
forM_ (Map.toList m) $ \(k, v) -> print k >> print v
506-
-}
507+
-}

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

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -2,6 +2,7 @@
22
module Stg.Interpreter.GC where
33

44
import Text.Printf
5+
import Control.Monad (unless, forM_, when)
56
import Control.Monad.State
67
import qualified Data.Map as Map
78
import Data.IntMap (IntMap)

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

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -1,6 +1,7 @@
11
{-# LANGUAGE RecordWildCards, LambdaCase, OverloadedStrings, FlexibleInstances #-}
22
module Stg.Interpreter.GC.GCRef where
33

4+
import Control.Monad (forM_)
45
import Control.Monad.State
56
import Foreign.Ptr
67

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

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -3,6 +3,7 @@
33
module Stg.Interpreter.GC.LiveDataAnalysis where
44

55
import GHC.Generics
6+
import Control.Monad (foldM, forM_, unless)
67
import Control.Monad.State
78
import qualified Data.IntSet as IntSet
89
import qualified Data.Map as Map

0 commit comments

Comments
 (0)