Clean up.
authorAndrey Mokhov <andrey.mokhov@gmail.com>
Fri, 24 Jul 2015 03:12:31 +0000 (04:12 +0100)
committerAndrey Mokhov <andrey.mokhov@gmail.com>
Fri, 24 Jul 2015 03:12:31 +0000 (04:12 +0100)
src/Package.hs
src/Rules/Data.hs
src/Settings/GhcPkg.hs
src/Util.hs

index 5d2429f..a007b4e 100644 (file)
@@ -6,7 +6,6 @@ import Util
 import Data.Function
 import GHC.Generics
 import Development.Shake.Classes
-import Development.Shake.FilePath
 
 -- pkgPath is the path to the source code relative to the root
 data Package = Package
index 3ce7d08..2a2a995 100644 (file)
@@ -16,7 +16,6 @@ import Rules.Actions
 import Control.Applicative
 import Control.Monad.Extra
 import Development.Shake
-import Development.Shake.FilePath
 
 -- Build package-data.mk by using GhcCabal to process pkgCabal file
 buildPackageData :: StagePackageTarget -> Rules ()
index 83bef1d..8e3a287 100644 (file)
@@ -12,8 +12,8 @@ import Development.Shake.FilePath
 
 ghcPkgArgs :: Args
 ghcPkgArgs = do
-    pkg <- asks getPackage
     stage <- asks getStage
+    pkg   <- asks getPackage
     builder (GhcPkg stage) ? mconcat
         [ arg "update"
         , arg "--force"
index 4b1a2c6..7cc38ee 100644 (file)
@@ -1,6 +1,7 @@
 module Util (
     module Data.Char,
     module System.Console.ANSI,
+    module Development.Shake.FilePath,
     replaceIf, replaceEq, replaceSeparators,
     unifyPath,
     chunksOfSize,