Minor revision.
authorAndrey Mokhov <andrey.mokhov@gmail.com>
Mon, 8 Feb 2016 03:09:14 +0000 (03:09 +0000)
committerAndrey Mokhov <andrey.mokhov@gmail.com>
Mon, 8 Feb 2016 03:09:14 +0000 (03:09 +0000)
src/Builder.hs
src/Package.hs
src/Target.hs

index 80fc4ba..d1a2cc3 100644 (file)
@@ -58,7 +58,7 @@ builderProvenance = \case
     DeriveConstants  -> Just (Stage0, deriveConstants)
     GenApply         -> Just (Stage0, genapply)
     GenPrimopCode    -> Just (Stage0, genprimopcode)
-    Ghc stage        -> if stage > Stage0 then Just (pred stage, ghc) else Nothing
+    Ghc stage        -> if stage == Stage0 then Nothing else Just (pred stage, ghc)
     GhcM stage       -> builderProvenance $ Ghc stage
     GhcCabal         -> Just (Stage0, ghcCabal)
     GhcCabalHsColour -> builderProvenance $ GhcCabal
index 43eb480..4b6fbc6 100644 (file)
@@ -29,13 +29,11 @@ instance Show PackageName where
 data PackageType = Program | Library deriving Generic
 
 data Package = Package
-     {
-         pkgName :: PackageName, -- ^ Examples: "ghc", "Cabal"
-         pkgPath :: FilePath,    -- ^ pkgPath is the path to the source code relative to the root.
-                                 -- e.g. "compiler", "libraries/Cabal/Cabal"
-         pkgType :: PackageType
-     }
-     deriving Generic
+    { pkgName :: PackageName -- ^ Examples: "ghc", "Cabal"
+    , pkgPath :: FilePath    -- ^ pkgPath is the path to the source code relative to the root.
+                             -- e.g. "compiler", "libraries/Cabal/Cabal"
+    , pkgType :: PackageType
+    } deriving Generic
 
 -- | Prettyprint Package name.
 pkgNameString :: Package -> String
index d2cbfce..8c39ac7 100644 (file)
@@ -18,15 +18,13 @@ import Way
 
 -- | Parameters relevant to the current build target.
 data Target = Target
-     {
-        stage   :: Stage,      -- ^ Stage being built
-        package :: Package,    -- ^ Package being built
-        builder :: Builder,    -- ^ Builder to be invoked
-        way     :: Way,        -- ^ Way to build (set to vanilla for most targets)
-        inputs  :: [FilePath], -- ^ Source files passed to the builder
-        outputs :: [FilePath]  -- ^ Files to be produced
-     }
-     deriving (Show, Eq, Generic)
+    { stage   :: Stage      -- ^ Stage being built
+    , package :: Package    -- ^ Package being built
+    , builder :: Builder    -- ^ Builder to be invoked
+    , way     :: Way        -- ^ Way to build (set to vanilla for most targets)
+    , inputs  :: [FilePath] -- ^ Source files passed to the builder
+    , outputs :: [FilePath] -- ^ Files to be produced
+    } deriving (Show, Eq, Generic)
 
 -- | If values of type @a@ form a 'Monoid' then we can also derive a 'Monoid'
 -- instance for values of type @'ReaderT' 'Target' 'Action' a@: