Stylish

Stackage/Build.hs

@@ -2,14 +2,14 @@ module Stackage.Build
     ( build
     ) where
 
-import           Control.Monad            (unless)
+import           Control.Monad        (unless)
 import           Stackage.CheckPlan
+import           Stackage.InstallInfo
 import           Stackage.Test
 import           Stackage.Util
-import           Stackage.InstallInfo
-import           System.Process           (waitForProcess, runProcess)
-import System.Exit (ExitCode (ExitSuccess), exitWith)
-import System.IO (IOMode (WriteMode), withBinaryFile)
+import           System.Exit          (ExitCode (ExitSuccess), exitWith)
+import           System.IO            (IOMode (WriteMode), withBinaryFile)
+import           System.Process       (runProcess, waitForProcess)
 
 build :: IO ()
 build = do

Stackage/CheckPlan.hs

@@ -2,12 +2,12 @@ module Stackage.CheckPlan
     ( checkPlan
     ) where
 
-import           Control.Monad            (unless)
-import           Data.List                (sort)
-import           Stackage.Types
+import           Control.Monad        (unless)
+import           Data.List            (sort)
 import           Stackage.InstallInfo
-import           System.Process           (readProcess)
-import System.Exit (ExitCode (ExitFailure), exitWith)
+import           Stackage.Types
+import           System.Exit          (ExitCode (ExitFailure), exitWith)
+import           System.Process       (readProcess)
 
 data Mismatch = OnlyDryRun String | OnlySimpleList String
     deriving Show

Stackage/Config.hs

@@ -1,12 +1,12 @@
 module Stackage.Config where
 
-import qualified Data.Map as Map
-import Stackage.Types
-import Control.Monad.Trans.Writer (execWriter, tell)
-import Data.Set (singleton, fromList)
-import Control.Monad (when, unless)
-import Distribution.System (OS (..), buildOS)
-import           Distribution.Text    (simpleParse)
+import           Control.Monad              (unless, when)
+import           Control.Monad.Trans.Writer (execWriter, tell)
+import qualified Data.Map                   as Map
+import           Data.Set                   (fromList, singleton)
+import           Distribution.System        (OS (..), buildOS)
+import           Distribution.Text          (simpleParse)
+import           Stackage.Types
 
 -- | Packages which are shipped with GHC but are not included in the
 -- Haskell Platform list of core packages.

Stackage/InstallInfo.hs

@@ -3,14 +3,14 @@ module Stackage.InstallInfo
     , iiPackageList
     ) where
 
-import           Stackage.Types
-import           Stackage.Util
+import qualified Data.Map                 as Map
+import qualified Data.Set                 as Set
 import           Stackage.Config
+import           Stackage.HaskellPlatform
 import           Stackage.LoadDatabase
 import           Stackage.NarrowDatabase
-import           Stackage.HaskellPlatform
-import qualified Data.Map as Map
-import qualified Data.Set as Set
+import           Stackage.Types
+import           Stackage.Util
 
 getInstallInfo :: IO InstallInfo
 getInstallInfo = do

Stackage/Test.hs

@@ -2,17 +2,18 @@ module Stackage.Test
     ( runTestSuites
     ) where
 
-import           Control.Monad            (when, foldM)
-import qualified Data.Map                 as Map
-import qualified Data.Set                 as Set
+import           Control.Monad    (foldM, when)
+import qualified Data.Map         as Map
+import qualified Data.Set         as Set
+import           Stackage.Config
 import           Stackage.Types
 import           Stackage.Util
-import           Stackage.Config
-import           System.Directory         (removeFile, createDirectory)
-import           System.Process           (waitForProcess, runProcess)
-import System.Exit (ExitCode (ExitSuccess))
-import System.FilePath ((</>), (<.>))
-import System.IO (IOMode (WriteMode, AppendMode), withBinaryFile)
+import           System.Directory (createDirectory, removeFile)
+import           System.Exit      (ExitCode (ExitSuccess))
+import           System.FilePath  ((<.>), (</>))
+import           System.IO        (IOMode (WriteMode, AppendMode),
+                                   withBinaryFile)
+import           System.Process   (runProcess, waitForProcess)
 
 runTestSuites :: InstallInfo -> IO ()
 runTestSuites ii = do

Stackage/Types.hs

@@ -40,6 +40,6 @@ instance Monoid HaskellPlatform where
     HaskellPlatform a x `mappend` HaskellPlatform b y = HaskellPlatform (mappend a b) (mappend x y)
 
 data InstallInfo = InstallInfo
-    { iiCore :: Set PackageName
+    { iiCore     :: Set PackageName
     , iiPackages :: Map PackageName Version
     }

Stackage/Util.hs

@@ -1,12 +1,13 @@
 module Stackage.Util where
 
+import           Control.Monad        (when)
 import qualified Data.Map             as Map
 import qualified Data.Set             as Set
+import           Data.Version         (showVersion)
 import           Distribution.Version (thisVersion)
-import           Data.Version (showVersion)
 import           Stackage.Types
-import           System.Directory         (doesDirectoryExist, removeDirectoryRecursive)
-import Control.Monad (when)
+import           System.Directory     (doesDirectoryExist,
+                                       removeDirectoryRecursive)
 
 identsToRanges :: Set PackageIdentifier -> Map PackageName VersionRange
 identsToRanges =