GHCs.hs

{-# LANGUAGE OverloadedStrings #-}

import Data.Time
import Data.String

date :: Integer -> Int -> Int -> Day
date = fromGregorian

newtype Major = Major String deriving (Eq, Ord, Show)

instance IsString Major where
    fromString = Major

releases :: [(Major, [(String, Day)])]
releases =
    [ rel "7.0"
        [ mk "7.0.1"  2010 11 16
        , mk "7.0.2"  2011  3  3
        , mk "7.0.3"  2011  3 27
        , mk "7.0.4"  2011  6 15
        ]
   , rel "7.2"
       [ mk "7.2.1"  2011  8  9
       , mk "7.2.2"  2011 10 15
       ]
    , rel "7.4"
        [ mk "7.4.1"  2012  2  2
        , mk "7.4.2"  2012  6 10
        ]
    , rel "7.6"
        [ mk "7.6.1"  2012  9  6
        , mk "7.6.2"  2013  1 29
        , mk "7.6.3"  2013  4 21
        ]
    , rel "7.8"
        [ mk "7.8.1"  2014  4  9
        , mk "7.8.2"  2014  4 12
        , mk "7.8.3"  2014  7 11
        , mk "7.8.4"  2014 12 23
        ]
    , rel "7.10"
        [ mk "7.10.1" 2015  3 27
        , mk "7.10.2" 2015  7 29
        , mk "7.10.3" 2015 12  8
        ]
    , rel "8.0"
        [ mk "8.0.1"  2016  5 21
        , mk "8.0.2"  2017  1 11
        ]
    -- either is incorrect
    -- https://www.haskell.org/ghc/download_ghc_8_2_1.html
    -- https://www.haskell.org/ghc/download_ghc_8_2_2.html
    , rel "8.2"
        [ mk "8.2.1"  2017  7 22
        , mk "8.2.2"  2017 11 22
        ]
    , rel "8.4"
        [ mk "8.4.1"  2018  3  8
        , mk "8.4.2"  2018  4 19
        , mk "8.4.3"  2018  5 29
        , mk "8.4.4"  2018 10 14
        ]
    , rel "8.6"
        [ mk "8.6.1"  2018  9 21
        , mk "8.6.2"  2018 11  2
        , mk "8.6.3"  2018 12  7
        , mk "8.6.4"  2019  3  5
        , mk "8.6.5"  2019  4 23
        ]
    , rel "8.8"
        [ mk "8.8.1"  2019  8 25
        , mk "8.8.2"  2020  1 16
        , mk "8.8.3"  2020  2 24
        ]
    , rel "8.10"
        [ mk "8.10.1" 2020  3 24
        ]
    , rel "8.12"
        [ mk "8.12.1" 2020  9 25
        ]
    ]
  where
    rel = (,)
    mk v x y z = (v, date x y z)