ProposedPlan

Stackage2/CorePackages.hs

@@ -1,10 +1,11 @@
-{-# LANGUAGE NoImplicitPrelude, OverloadedStrings #-}
+{-# LANGUAGE NoImplicitPrelude #-}
+{-# LANGUAGE OverloadedStrings #-}
 module Stackage2.CorePackages
     ( getCorePackages
     ) where
 
-import Stackage2.Prelude
-import qualified Data.Text as T
+import qualified Data.Text         as T
+import           Stackage2.Prelude
 
 -- | Get a @Map@ of all of the core packages. Core packages are defined as
 -- packages which ship with GHC itself.

Stackage2/Prelude.hs

@@ -12,7 +12,7 @@ import           Data.Conduit.Process  as X
 import           Data.Typeable         (TypeRep, typeOf)
 import           Distribution.Package  as X (PackageName (PackageName))
 import qualified Distribution.Text     as DT
-import           Distribution.Version  as X (Version (..))
+import           Distribution.Version  as X (Version (..), VersionRange)
 import           System.Exit           (ExitCode (ExitSuccess))
 
 unPackageName :: PackageName -> Text
@@ -71,3 +71,5 @@ withCheckedProcess cp f = do
     ec <- waitForStreamingProcess sph
     checkExitCode cp ec
     return res
+
+newtype Maintainer = Maintainer { unMaintainer :: Text }

Stackage2/ProposedPlan.hs

@@ -0,0 +1,30 @@
+{-# LANGUAGE NoImplicitPrelude #-}
+{-# LANGUAGE OverloadedStrings #-}
+-- | Get the proposed build plan.
+module Stackage2.ProposedPlan
+    ( ProposedPlan (..)
+    , defaultProposedPlan
+    ) where
+
+import           Stackage2.Prelude
+import qualified Stackage.Config as Old
+import qualified Stackage.Types  as Old
+
+data ProposedPlan = ProposedPlan
+    { ppPackages :: Map PackageName (VersionRange, Maintainer)
+    -- ^ This does not include core packages or dependencies, just packages
+    -- added by some maintainer.
+    , ppExpectedFailures :: Set PackageName
+    -- ^ At some point in the future, we should split this into Haddock
+    -- failures, test failures, etc.
+    }
+
+-- | The proposed plan from the requirements provided by contributors.
+defaultProposedPlan :: ProposedPlan
+defaultProposedPlan = ProposedPlan
+    { ppPackages = fmap (Maintainer . pack . Old.unMaintainer)
+               <$> Old.defaultStablePackages ghcVer False
+    , ppExpectedFailures = Old.defaultExpectedFailures ghcVer False
+    }
+  where
+    ghcVer = Old.GhcMajorVersion 7 8

stackage.cabal

@@ -9,9 +9,10 @@ author:              Michael Snoyman
 maintainer:          michael@fpcomplete.com
 category:            Distribution
 build-type:          Simple
-cabal-version:       >=1.8
+cabal-version:       >=1.10
 
 library
+  default-language:    Haskell2010
   exposed-modules:     Stackage.NarrowDatabase
                        Stackage.LoadDatabase
                        Stackage.ModuleNameConflict
@@ -31,6 +32,7 @@ library
                        Stackage.ServerFiles
 
                        Stackage2.Prelude
+                       Stackage2.ProposedPlan
                        Stackage2.CorePackages
   build-depends:       base >= 4 && < 5
                      , containers
@@ -51,6 +53,7 @@ library
                      , text
 
 executable stackage
+  default-language:    Haskell2010
   hs-source-dirs:      app
   main-is:             stackage.hs
   build-depends:       base