tweak imports for GHC 9.6

camfort · Sep 15, 2024 · acea802 · acea802
1 parent b05c2b5
commit acea802
Show file tree

Hide file tree

Showing 9 changed files with 8 additions and 4 deletions.
diff --git a/app/Main.hs b/app/Main.hs
@@ -27,7 +27,7 @@ import Data.Either.Combinators ( fromRight' )
 
 import qualified Data.IntMap as IM
 import qualified Data.Map as M
-import Control.Monad
+import Control.Monad ( forM_, forM )
 import Text.Printf
 
 import Language.Fortran.Parser

diff --git a/src/Language/Fortran/Analysis/BBlocks.hs b/src/Language/Fortran/Analysis/BBlocks.hs
@@ -13,6 +13,7 @@ import Data.List (unfoldr, foldl')
 import Control.Monad
 import Control.Monad.State.Lazy hiding (fix)
 import Control.Monad.Writer hiding (fix)
+import Control.Monad ( forM_ )
 import Text.PrettyPrint.GenericPretty (pretty, Out)
 import Text.PrettyPrint               (render)
 import Language.Fortran.Analysis

diff --git a/src/Language/Fortran/Analysis/DataFlow.hs b/src/Language/Fortran/Analysis/DataFlow.hs
@@ -42,6 +42,7 @@ import Data.Graph.Inductive hiding (trc, dom, order, inn, out, rc)
 import Data.Maybe
 import Data.List (foldl', foldl1', (\\), union, intersect)
 import Control.Monad.Writer hiding (fix)
+import Control.Monad
 
 import qualified Language.Fortran.Repr as Repr
 import qualified Language.Fortran.Repr.Eval.Value as Repr

diff --git a/src/Language/Fortran/Analysis/ModGraph.hs b/src/Language/Fortran/Analysis/ModGraph.hs
@@ -10,8 +10,8 @@ import Language.Fortran.Util.ModFile
 import Language.Fortran.Util.Files
 
 import Prelude hiding (mod)
-import Control.Monad
 import Control.Monad.State.Strict
+import Control.Monad ( forM_ )
 import Data.Data
 import Data.Generics.Uniplate.Data
 import Data.Graph.Inductive hiding (version)

diff --git a/src/Language/Fortran/Analysis/Renaming.hs b/src/Language/Fortran/Analysis/Renaming.hs
@@ -20,6 +20,7 @@ import qualified Data.List as L
 import Data.Map (insert, empty, lookup, Map)
 import qualified Data.Map.Strict as M
 import Control.Monad.State.Strict
+import Control.Monad
 import Data.Generics.Uniplate.Data
 import Data.Data
 import Data.Functor.Identity (Identity)

diff --git a/src/Language/Fortran/Analysis/Types.hs b/src/Language/Fortran/Analysis/Types.hs
@@ -23,6 +23,7 @@ import Data.Maybe (maybeToList)
 import Data.List (find, foldl')
 import Control.Monad.State.Strict
 import Control.Monad.Reader
+import Control.Monad
 import Data.Generics.Uniplate.Data
 import Data.Data
 import Language.Fortran.Analysis

diff --git a/src/Language/Fortran/Parser.hs b/src/Language/Fortran/Parser.hs
@@ -23,7 +23,6 @@ module Language.Fortran.Parser
 
   -- * Other parsers
   , f90Expr
-  , f77lIncludesNoTransform
   , byVerFromFilename
 
   -- ** Statement

diff --git a/src/Language/Fortran/Util/ModFile.hs b/src/Language/Fortran/Util/ModFile.hs
@@ -71,6 +71,7 @@ import qualified Language.Fortran.Util.Position     as P
 import           Language.Fortran.Util.Files ( getDirContents )
 
 import Control.Monad.State
+import Control.Monad
 import Data.Binary (Binary, encode, decodeOrFail)
 import qualified Data.ByteString.Lazy.Char8 as LB
 import Data.Data

diff --git a/test/Language/Fortran/Parser/Free/Fortran95Spec.hs b/test/Language/Fortran/Parser/Free/Fortran95Spec.hs
@@ -15,7 +15,7 @@ import qualified Language.Fortran.Parser.Free.Fortran95 as F95
 import qualified Language.Fortran.Parser.Free.Lexer     as Free
 
 import qualified Data.List as List
-import Data.Foldable(forM_)
+import Control.Monad ( forM_ )
 import qualified Data.ByteString.Char8 as B
 import Control.Exception (evaluate)