diff --git a/lib/Language/Haskell/Stylish/GHC.hs b/lib/Language/Haskell/Stylish/GHC.hs index 021c7aa3..d21c4c12 100644 --- a/lib/Language/Haskell/Stylish/GHC.hs +++ b/lib/Language/Haskell/Stylish/GHC.hs @@ -73,7 +73,7 @@ baseDynFlags = defaultDynFlags GHCEx.fakeSettings getConDecls :: GHC.HsDataDefn GHC.GhcPs -> [GHC.LConDecl GHC.GhcPs] getConDecls d@GHC.HsDataDefn {} = case GHC.dd_cons d of - GHC.NewTypeCon con -> [con] + GHC.NewTypeCon con -> [con] GHC.DataTypeCons _ cons -> cons showOutputable :: GHC.Outputable a => a -> String diff --git a/lib/Language/Haskell/Stylish/Parse.hs b/lib/Language/Haskell/Stylish/Parse.hs index b31af647..47ed13dd 100644 --- a/lib/Language/Haskell/Stylish/Parse.hs +++ b/lib/Language/Haskell/Stylish/Parse.hs @@ -7,6 +7,7 @@ module Language.Haskell.Stylish.Parse -------------------------------------------------------------------------------- import Data.Char (toLower) import Data.List (stripPrefix) +import qualified Data.List as List import Data.Maybe (catMaybes, fromMaybe, listToMaybe, @@ -24,7 +25,6 @@ import qualified GHC.Types.SrcLoc as GHC import qualified GHC.Utils.Error as GHC import qualified Language.Haskell.GhclibParserEx.GHC.Driver.Session as GHCEx import qualified Language.Haskell.GhclibParserEx.GHC.Parser as GHCEx -import qualified Data.List as List -------------------------------------------------------------------------------- import Language.Haskell.Stylish.GHC diff --git a/lib/Language/Haskell/Stylish/Step/Imports.hs b/lib/Language/Haskell/Stylish/Step/Imports.hs index f63b2e1c..3f1ea0cf 100644 --- a/lib/Language/Haskell/Stylish/Step/Imports.hs +++ b/lib/Language/Haskell/Stylish/Step/Imports.hs @@ -606,7 +606,7 @@ isQualified = (/=) GHC.NotQualified . GHC.ideclQualified isHiding :: GHC.ImportDecl GHC.GhcPs -> Bool isHiding d = case GHC.ideclImportList d of Just (GHC.EverythingBut, _) -> True - _ -> False + _ -> False isSource :: GHC.ImportDecl GHC.GhcPs -> Bool isSource = (==) GHC.IsBoot . GHC.ideclSource diff --git a/lib/Language/Haskell/Stylish/Step/ModuleHeader.hs b/lib/Language/Haskell/Stylish/Step/ModuleHeader.hs index ff32761f..a4b03151 100644 --- a/lib/Language/Haskell/Stylish/Step/ModuleHeader.hs +++ b/lib/Language/Haskell/Stylish/Step/ModuleHeader.hs @@ -21,6 +21,7 @@ import qualified GHC.Types.SrcLoc as GHC -------------------------------------------------------------------------------- +import qualified GHC.Unit.Module.Warnings as GHC import Language.Haskell.Stylish.Comments import qualified Language.Haskell.Stylish.Editor as Editor import Language.Haskell.Stylish.GHC @@ -30,7 +31,6 @@ import Language.Haskell.Stylish.Printer import Language.Haskell.Stylish.Step import qualified Language.Haskell.Stylish.Step.Imports as Imports import Language.Haskell.Stylish.Util (flagEnds) -import qualified GHC.Unit.Module.Warnings as GHC data Config = Config diff --git a/lib/Language/Haskell/Stylish/Step/SimpleAlign.hs b/lib/Language/Haskell/Stylish/Step/SimpleAlign.hs index aa6c2b38..7f32b114 100644 --- a/lib/Language/Haskell/Stylish/Step/SimpleAlign.hs +++ b/lib/Language/Haskell/Stylish/Step/SimpleAlign.hs @@ -13,11 +13,11 @@ module Language.Haskell.Stylish.Step.SimpleAlign import Data.Either (partitionEithers) import Data.Foldable (toList) import Data.List (foldl1', sortOn) +import qualified Data.List as List import Data.Maybe (fromMaybe) import qualified GHC.Hs as Hs import qualified GHC.Parser.Annotation as GHC import qualified GHC.Types.SrcLoc as GHC -import qualified Data.List as List -------------------------------------------------------------------------------- import Language.Haskell.Stylish.Align