diff options
Diffstat (limited to 'src/StylishHaskell/Step/Imports.hs')
-rw-r--r-- | src/StylishHaskell/Step/Imports.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/StylishHaskell/Step/Imports.hs b/src/StylishHaskell/Step/Imports.hs index fc77c55..bbea76d 100644 --- a/src/StylishHaskell/Step/Imports.hs +++ b/src/StylishHaskell/Step/Imports.hs @@ -7,7 +7,7 @@ module StylishHaskell.Step.Imports -------------------------------------------------------------------------------- import Control.Arrow ((&&&)) -import Data.Char (isAlpha) +import Data.Char (isAlpha, toLower) import Data.List (sortBy) import Data.Maybe (isJust, maybeToList) import Data.Ord (comparing) @@ -62,7 +62,7 @@ groupAdjacent = foldr go [] -------------------------------------------------------------------------------- -- | Compare imports for ordering compareImports :: H.ImportDecl l -> H.ImportDecl l -> Ordering -compareImports = comparing (importName &&& H.importQualified) +compareImports = comparing (map toLower . importName &&& H.importQualified) -------------------------------------------------------------------------------- |