From 06351bd9e95f22174c3b2018f4e5b7f304f0b74c Mon Sep 17 00:00:00 2001
From: Ben Orchard <thefirstmuffinman@gmail.com>
Date: Sun, 15 Sep 2024 17:35:47 +0100
Subject: [PATCH] tweak imports for GHC 9.6

---
 app/Main.hs                                        | 2 +-
 src/Language/Fortran/Analysis/BBlocks.hs           | 1 +
 src/Language/Fortran/Analysis/DataFlow.hs          | 1 +
 src/Language/Fortran/Analysis/ModGraph.hs          | 2 +-
 src/Language/Fortran/Analysis/Renaming.hs          | 1 +
 src/Language/Fortran/Analysis/Types.hs             | 1 +
 src/Language/Fortran/Parser.hs                     | 1 -
 src/Language/Fortran/Util/ModFile.hs               | 1 +
 test/Language/Fortran/Parser/Free/Fortran95Spec.hs | 2 +-
 9 files changed, 8 insertions(+), 4 deletions(-)

diff --git a/app/Main.hs b/app/Main.hs
index 69af8a6e..025d0b05 100644
--- 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_ )
 import Text.Printf
 
 import Language.Fortran.Parser
diff --git a/src/Language/Fortran/Analysis/BBlocks.hs b/src/Language/Fortran/Analysis/BBlocks.hs
index 208e66d4..65ec2ebc 100644
--- 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
index 19fa58d4..d0fabd35 100644
--- 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
index adb32ac8..10eeba15 100644
--- 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
index 79468deb..5bf7921f 100644
--- 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
index d2b684ce..09672310 100644
--- 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
index 0df6bff4..5c2c0811 100644
--- 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
index 67297422..3327d2ce 100644
--- 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
index 20d3ec9f..d317b2e6 100644
--- 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)