Stylish Haskell

Stackage/Build.hs

@@ -6,6 +6,7 @@ module Stackage.Build
 
 import           Control.Monad              (unless)
 import           Prelude                    hiding (pi)
+import           Stackage.CheckCabalVersion (checkCabalVersion)
 import           Stackage.Config
 import           Stackage.InstallInfo
 import           Stackage.Types
@@ -15,7 +16,6 @@ import           System.IO            (IOMode (WriteMode), hPutStrLn,
                                              withBinaryFile)
 import           System.Process             (rawSystem, runProcess,
                                              waitForProcess)
-import Stackage.CheckCabalVersion (checkCabalVersion)
 
 defaultBuildSettings :: BuildSettings
 defaultBuildSettings = BuildSettings

Stackage/BuildPlan.hs

@@ -1,14 +1,14 @@
-{-# LANGUAGE RecordWildCards #-}
 {-# LANGUAGE FlexibleInstances #-}
+{-# LANGUAGE RecordWildCards   #-}
 module Stackage.BuildPlan
     ( readBuildPlan
     , writeBuildPlan
     ) where
 
-import Stackage.Types
 import qualified Data.Map          as Map
 import qualified Data.Set          as Set
-import           Distribution.Text       (simpleParse, display)
+import           Distribution.Text (display, simpleParse)
+import           Stackage.Types
 
 readBuildPlan :: FilePath -> IO BuildPlan
 readBuildPlan fp = do

Stackage/CheckPlan.hs

@@ -6,13 +6,13 @@ import           Control.Monad        (unless, when)
 import           Data.List                  (isPrefixOf, sort)
 import qualified Data.Map                   as Map
 import qualified Data.Set                   as Set
+import           Stackage.CheckCabalVersion (checkCabalVersion)
 import           Stackage.InstallInfo
 import           Stackage.Types
 import           Stackage.Util
 import           System.Exit                (ExitCode (ExitFailure, ExitSuccess),
                                              exitWith)
 import           System.Process             (readProcessWithExitCode)
-import Stackage.CheckCabalVersion (checkCabalVersion)
 
 data Mismatch = OnlyDryRun String | OnlySimpleList String
     deriving Show

Stackage/InstallInfo.hs

@@ -9,7 +9,7 @@ import qualified Data.Map                 as Map
 import qualified Data.Set                 as Set
 import           Data.Version             (showVersion)
 import qualified Distribution.Text
-import           Distribution.Version     (withinRange, simplifyVersionRange)
+import           Distribution.Version     (simplifyVersionRange, withinRange)
 import           Stackage.HaskellPlatform
 import           Stackage.LoadDatabase
 import           Stackage.NarrowDatabase

Stackage/Select.hs

@@ -3,9 +3,9 @@ module Stackage.Select
     , defaultSelectSettings
     ) where
 
+import           Data.Either          (partitionEithers)
 import qualified Data.Map             as Map
 import           Data.Maybe           (mapMaybe)
-import           Data.Either (partitionEithers)
 import           Data.Set             (empty)
 import qualified Data.Set             as Set
 import           Prelude              hiding (pi)

Stackage/Test.hs

@@ -5,8 +5,8 @@ module Stackage.Test
     ) where
 
 import qualified Control.Concurrent as C
-import           Control.Exception  (Exception, handle, throwIO, SomeException)
+import           Control.Exception  (Exception, SomeException, handle, throwIO)
-import           Control.Monad      (unless, when, replicateM)
+import           Control.Monad      (replicateM, unless, when)
 import qualified Data.Map           as Map
 import qualified Data.Set           as Set
 import           Data.Typeable      (Typeable)

Stackage/Types.hs

@@ -10,9 +10,9 @@ import           Data.Set             as X (Set)
 import           Data.Version                    as X (Version)
 import           Distribution.Package            as X (PackageIdentifier (..),
                                                        PackageName (..))
+import           Distribution.PackageDescription (GenericPackageDescription)
 import           Distribution.Version            as X (VersionRange (..))
 import           Distribution.Version            (intersectVersionRanges)
-import           Distribution.PackageDescription       (GenericPackageDescription)
 
 newtype PackageDB = PackageDB (Map PackageName PackageInfo)
     deriving (Show, Eq)

Stackage/Util.hs

@@ -8,20 +8,19 @@ import           Data.List               (stripPrefix)
 import qualified Data.Map                        as Map
 import qualified Data.Set                        as Set
 import           Data.Version                    (showVersion)
-import           Distribution.Text       (simpleParse, display)
+import           Distribution.License            (License (..))
+import qualified Distribution.Package            as P
+import qualified Distribution.PackageDescription as PD
+import           Distribution.Text               (display, simpleParse)
 import           Distribution.Version            (thisVersion)
 import           Stackage.Types
 import           System.Directory                (doesDirectoryExist,
                                                   removeDirectoryRecursive)
 import           System.Directory                (getAppUserDataDirectory)
+import           System.Directory                (canonicalizePath,
+                                                  createDirectoryIfMissing)
 import           System.Environment              (getEnvironment)
 import           System.FilePath                 ((</>))
-import qualified Distribution.Package as P
-import qualified Distribution.PackageDescription as PD
-import           Distribution.License    (License (..))
-import           System.Directory     (canonicalizePath,
-                                       createDirectoryIfMissing
-                                       )
 
 -- | Allow only packages with permissive licenses.
 allowPermissive :: [String] -- ^ list of explicitly allowed packages

app/stackage.hs

@@ -1,16 +1,16 @@
 {-# LANGUAGE RecordWildCards #-}
-import           Stackage.Types
-import           Stackage.Build     (build, defaultBuildSettings)
-import           Stackage.Init      (stackageInit)
-import           Stackage.Util      (allowPermissive)
-import           Stackage.Select    (defaultSelectSettings, select)
-import           Stackage.CheckPlan (checkPlan)
-import           System.Environment (getArgs, getProgName)
 import           Data.Set           (fromList)
-import           System.IO          (hFlush, stdout)
+import           Stackage.Build     (build, defaultBuildSettings)
 import           Stackage.BuildPlan (readBuildPlan, writeBuildPlan)
-import Stackage.Test (runTestSuites)
+import           Stackage.CheckPlan (checkPlan)
+import           Stackage.Init      (stackageInit)
+import           Stackage.Select    (defaultSelectSettings, select)
 import           Stackage.Tarballs  (makeTarballs)
+import           Stackage.Test      (runTestSuites)
+import           Stackage.Types
+import           Stackage.Util      (allowPermissive)
+import           System.Environment (getArgs, getProgName)
+import           System.IO          (hFlush, stdout)
 
 data SelectArgs = SelectArgs
     { excluded       :: [String]