Write direct Uniplate instances for performance

src/Language/Fortran/Analysis.hs

@@ -16,7 +16,7 @@ where
 
 import Prelude hiding (exp)
 import Language.Fortran.Util.Position (SrcSpan)
-import Data.Generics.Uniplate.Data
+import Data.Generics.Uniplate.DataOnly
 import Data.Data
 import Language.Fortran.AST
 import Language.Fortran.LValue

src/Language/Fortran/Analysis/ModGraph.hs

@@ -1,4 +1,4 @@
-{-# LANGUAGE DeriveDataTypeable, ScopedTypeVariables, PatternGuards, TupleSections #-}
+{-# LANGUAGE DeriveDataTypeable, ScopedTypeVariables, PatternGuards, TupleSections, FlexibleContexts #-}
 
 -- | Generate a module use-graph.
 module Language.Fortran.Analysis.ModGraph

src/Language/Fortran/Analysis/Renaming.hs

@@ -22,7 +22,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 Data.Generics.Uniplate.Data
+import Data.Generics.Uniplate.DataOnly
 import Data.Data
 import Data.Functor.Identity (Identity)
 

src/Language/Fortran/Analysis/Types.hs

@@ -23,7 +23,7 @@ import qualified Data.Map as M
 import Data.Maybe (maybeToList)
 import Data.List (find, foldl')
 import Control.Monad.State.Strict
-import Data.Generics.Uniplate.Data
+import Data.Generics.Uniplate.DataOnly
 import Data.Data
 import Data.Functor.Identity (Identity ())
 import Language.Fortran.Analysis

src/Language/Fortran/Util/ModFile.hs

@@ -59,7 +59,7 @@ import Control.Monad.State
 import Data.Binary (Binary, encode, decodeOrFail)
 import qualified Data.ByteString.Lazy.Char8 as LB
 import Data.Data
-import Data.Generics.Uniplate.Operations
+import Data.Generics.Uniplate.DataOnly
 import qualified Data.Map.Strict as M
 import Data.Maybe
 import GHC.Generics (Generic)

test/Language/Fortran/PrettyPrintSpec.hs

@@ -7,7 +7,7 @@ module Language.Fortran.PrettyPrintSpec where
 import Prelude hiding (mod)
 
 import Data.Data
-import Data.Generics.Uniplate.Operations
+import Data.Generics.Uniplate.DataOnly
 import Data.Maybe (catMaybes)
 
 import Language.Fortran.AST as LFA

test/TestUtil.hs

@@ -5,7 +5,7 @@ module TestUtil where
 
 import Test.Hspec
 import Data.Data
-import Data.Generics.Uniplate.Data
+import Data.Generics.Uniplate.DataOnly
 
 import Language.Fortran.AST
 import Language.Fortran.ParserMonad