@@ -1,7 +1,7 @@
11{-# LANGUAGE CPP #-}
22module Stackage.Config where
33
4−import Control.Monad (when)
4+import Control.Monad (when, unless)
55import Control.Monad.Trans.Writer (Writer, execWriter, tell)
66import Data.Char (toLower)
77import qualified Data.Map as Map
@@ -240,7 +240,7 @@ defaultStablePackages ghcVer requireHP = unPackageMap $ execWriter $ do
240240 , "threepenny-gui unification-fd"
241241 ]
242242 addRange "FP Complete <michael@fpcomplete.com>" "compdata" "< 0.8"
243− when (ghcVer >= GhcMajorVersion 7 8) $
243+ when (ghcVer >= GhcMajorVersion 7 8 && not requireHP) $
244244 mapM_ (add "FP Complete <michael@fpcomplete.com>") $ words =<<
245245 [ "criterion"
246246 ]
@@ -443,11 +443,16 @@ defaultStablePackages ghcVer requireHP = unPackageMap $ execWriter $ do
443443 ]
444444
445445 mapM_ (add "Silk <code@silk.co>") $ words =<<
446− [ "aeson-utils arrow-list attoparsec-expr bumper code-builder fay-builder"
447− , "generic-aeson hxt-pickle-utils json-schema multipart regular-xmlpickler"
448− , "rest-client rest-core rest-gen rest-happstack rest-snap rest-stringmap"
449− , "rest-types rest-wai tostring uri-encode imagesize-conduit"
446+ [ "arrow-list attoparsec-expr bumper code-builder fay-builder"
447+ , "hxt-pickle-utils multipart regular-xmlpickler"
448+ , "tostring uri-encode imagesize-conduit"
450449 ]
450+ unless (ghcVer == GhcMajorVersion 7 8 && requireHP) $ do
451+ mapM_ (add "Silk <code@silk.co>") $ words =<<
452+ [ "aeson-utils generic-aeson json-schema"
453+ , "rest-client rest-core rest-gen rest-happstack rest-snap rest-stringmap"
454+ , "rest-types rest-wai tostring uri-encode imagesize-conduit"
455+ ]
451456
452457 mapM_ (add "Simon Michael <simon@joyful.com>") $ words
453458 "hledger"
@@ -518,6 +523,22 @@ defaultStablePackages ghcVer requireHP = unPackageMap $ execWriter $ do
518523 -- https://github.com/fpco/stackage/issues/277
519524 addRange "Michael Snoyman" "pandoc" "< 1.13"
520525
526+ when (ghcVer == GhcMajorVersion 7 8 && requireHP) $ do
527+ -- Yay workarounds for unnecessarily old versions
528+ let peg x y = addRange "Haskell Platform" x y
529+ peg "aeson" "== 0.7.0.4"
530+ peg "scientific" "== 0.2.0.2"
531+ --peg "criterion" "<= 0.8.1.0"
532+ peg "tasty-quickcheck" "< 0.8.0.3"
533+ peg "formatting" "< 5.0"
534+ peg "parsers" "< 0.11"
535+ peg "lens" "< 4.2"
536+ peg "contravariant" "< 1"
537+ peg "adjunctions" "< 4.2"
538+ peg "kan-extensions" "< 4.1"
539+ peg "semigroupoids" "< 4.1"
540+ peg "aws" "< 0.10"
541+
521542add :: String -> String -> Writer PackageMap ()
522543add maintainer package = addRange maintainer package "-any"
523544
@@ -531,7 +552,7 @@ addRange maintainer package range =
531552haskellPlatform78 :: Writer PackageMap ()
532553haskellPlatform78 = do
533554 addRange "Haskell Platform" "ghc" "== 7.8.3"
534− addRange "Haskell Platform" "haddock" "== 2.14.2"
555+ addRange "Haskell Platform" "haddock" "== 2.14.3"
535556 addRange "Haskell Platform" "array" "== 0.5.0.0"
536557 addRange "Haskell Platform" "base" "== 4.7.0.1"
537558 addRange "Haskell Platform" "bytestring" "== 0.10.4.0"
@@ -586,7 +607,6 @@ haskellPlatform78 = do
586607 addRange "Haskell Platform" "zlib" "== 0.5.4.1"
587608 addRange "Haskell Platform" "alex" "== 3.1.3"
588609 addRange "Haskell Platform" "cabal-install" "== 1.18.0.5"
589− addRange "Haskell Platform" "haddock" "== 2.14.2"
590610 addRange "Haskell Platform" "happy" "== 1.19.4"
591611 addRange "Haskell Platform" "hscolour" "== 1.20.3"
592612