@@ -1,6 +1,7 @@
1{-# LANGUAGE CPP #-}
1{-# LANGUAGE CPP #-}
2module Stackage.Config where
2module Stackage.Config where
4+import Control.Monad (when)
4import Control.Monad.Trans.Writer (execWriter, tell)
5import Control.Monad.Trans.Writer (execWriter, tell)
5import qualified Data.Map as Map
6import qualified Data.Map as Map
6import Data.Set (fromList)
7import Data.Set (fromList)
@@ -92,7 +93,7 @@ defaultExpectedFailures _ = fromList $ map PackageName
92-- included as well. Please indicate who will be maintaining the package
93-- included as well. Please indicate who will be maintaining the package
93-- via comments.
94-- via comments.
94defaultStablePackages :: GhcMajorVersion -> Map PackageName (VersionRange, Maintainer)
95defaultStablePackages :: GhcMajorVersion -> Map PackageName (VersionRange, Maintainer)
95−defaultStablePackages _ = unPackageMap $ execWriter $ do
96+defaultStablePackages ghcVer = unPackageMap $ execWriter $ do
96 mapM_ (add "michael@snoyman.com") $ words =<<
97 mapM_ (add "michael@snoyman.com") $ words =<<
97 [ "yesod yesod-newsfeed yesod-sitemap yesod-static yesod-test yesod-bin"
98 [ "yesod yesod-newsfeed yesod-sitemap yesod-static yesod-test yesod-bin"
98 , "markdown filesystem-conduit mime-mail-ses"
99 , "markdown filesystem-conduit mime-mail-ses"
@@ -110,6 +111,8 @@ defaultStablePackages _ = unPackageMap $ execWriter $ do
110 , "async"
111 , "async"
114+ when (ghcVer < GhcMajorVersion 7 6) $
115+ addRange "FP Complete <michael@fpcomplete.com>" "hxt" "<= 9.3.0.1"
113 addRange "FP Complete <michael@fpcomplete.com>" "kure" "<= 2.4.10"
116 addRange "FP Complete <michael@fpcomplete.com>" "kure" "<= 2.4.10"
115 mapM_ (add "Neil Mitchell") $ words
118 mapM_ (add "Neil Mitchell") $ words