{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE QuasiQuotes       #-}

{-|
Module      : GHCup.Data.ToolRequirements
Description : Tool requirements
Copyright   : (c) Julian Ospald, 2020
License     : GPL-3
Maintainer  : hasufell@hasufell.de
Stability   : experimental
Portability : POSIX
-}
module GHCup.Data.ToolRequirements where

import           GHCup.Types
import           GHCup.Utils.String.QQ
import           GHCup.Utils.Version.QQ

import qualified Data.Map                      as M



-- | Currently 'GHC' is used for both GHC and cabal to simplify
-- this, until we need actual separation.
toolRequirements :: ToolRequirements
toolRequirements = M.fromList
  [ ( GHC
    , M.fromList
      [ ( Nothing
        , M.fromList
          [ ( Linux UnknownLinux
            , M.fromList
              [ ( Nothing
                , Requirements
                  []
                  [s|You need the following packages: curl g++ gcc gmp make ncurses realpath xz-utils. Consult your distro documentation on the exact names of those packages.|]
                )
              ]
            )
          , ( Linux Alpine
            , M.fromList
              [ ( Nothing
                , Requirements
                  [ "curl"
                  , "gcc"
                  , "g++"
                  , "gmp-dev"
                  , "ncurses-dev"
                  , "libffi-dev"
                  , "make"
                  , "xz"
                  , "tar"
                  , "perl"
                  ]
                  ""
                )
              ]
            )
          , ( Linux Ubuntu
            , M.fromList
              [ ( Nothing
                , Requirements
                  [ "build-essential"
                  , "curl"
                  , "libffi-dev"
                  , "libffi6"
                  , "libgmp-dev"
                  , "libgmp10"
                  , "libncurses-dev"
                  , "libncurses5"
                  , "libtinfo5"
                  ]
                  ""
                )
              ]
            )
          , ( Linux Debian
            , M.fromList
              [ ( Nothing
                , Requirements
                  [ "build-essential"
                  , "curl"
                  , "libffi-dev"
                  , "libffi6"
                  , "libgmp-dev"
                  , "libgmp10"
                  , "libncurses-dev"
                  , "libncurses5"
                  , "libtinfo5"
                  ]
                  ""
                )
              ]
            )
          , ( Linux CentOS
            , M.fromList
              [ ( Nothing
                , Requirements
                  [ "gcc"
                  , "gcc-c++"
                  , "gmp"
                  , "gmp-devel"
                  , "make"
                  , "ncurses"
                  , "ncurses-compat-libs"
                  , "xz"
                  , "perl"
                  ]
                  ""
                ),
              ( Just [vers|7|]
                , Requirements
                  [ "gcc"
                  , "gcc-c++"
                  , "gmp"
                  , "gmp-devel"
                  , "make"
                  , "ncurses"
                  , "xz"
                  , "perl"
                  ]
                  ""
                )
              ]
            )
          , ( Darwin
            , M.fromList
              [ ( Nothing
                , Requirements
                  []
                  "On OS X, in the course of running ghcup you will be given a dialog box to install the command line tools. Accept and the requirements will be installed for you. You will then need to run the command again."
                )
              ]
            )
          , ( FreeBSD
            , M.fromList
              [ ( Nothing
                , Requirements
                  [ "curl"
                  , "gcc"
                  , "gmp"
                  , "gmake"
                  , "ncurses"
                  , "perl5"
                  , "libffi"
                  , "libiconv"
                  ]
                  ""
                )
              ]
            )
          ]
        )
      ]
    )
  ]