@@ -1,6 +1,7 @@
11{-# LANGUAGE CPP #-}
22module Stackage.Config where
33
4+import Control.Monad (when)
45import Control.Monad.Trans.Writer (execWriter, tell)
56import qualified Data.Map as Map
67import Data.Set (fromList)
@@ -92,7 +93,7 @@ defaultExpectedFailures _ = fromList $ map PackageName
9293-- included as well. Please indicate who will be maintaining the package
9394-- via comments.
9495defaultStablePackages :: GhcMajorVersion -> Map PackageName (VersionRange, Maintainer)
95−defaultStablePackages _ = unPackageMap $ execWriter $ do
96+defaultStablePackages ghcVer = unPackageMap $ execWriter $ do
9697 mapM_ (add "michael@snoyman.com") $ words =<<
9798 [ "yesod yesod-newsfeed yesod-sitemap yesod-static yesod-test yesod-bin"
9899 , "markdown filesystem-conduit mime-mail-ses"
@@ -110,6 +111,8 @@ defaultStablePackages _ = unPackageMap $ execWriter $ do
110111 , "async"
111112 , "hxt"
112113 ]
114+ when (ghcVer < GhcMajorVersion 7 6) $
115+ addRange "FP Complete <michael@fpcomplete.com>" "hxt" "<= 9.3.0.1"
113116 addRange "FP Complete <michael@fpcomplete.com>" "kure" "<= 2.4.10"
114117
115118 mapM_ (add "Neil Mitchell") $ words