Allow to set ghcup msys2 environment

Fixes #982
2024-01-29 14:41:26 +08:00
parent c2186bb33c
commit 96f7aa5c62
9 changed files with 156 additions and 30 deletions
--- a/lib/GHCup/Types.hs
+++ b/lib/GHCup/Types.hs
@@ -544,11 +544,23 @@ data Dirs = Dirs
  , dbDir      :: GHCupPath
  , recycleDir :: GHCupPath -- mainly used on windows
  , tmpDir     :: GHCupPath
+  , msys2Dir   :: FilePath
  }
  deriving (Show, GHC.Generic)

 instance NFData Dirs

+data MSYS2Env = MSYS
+              | UCRT64
+              | CLANG64
+              | CLANGARM64
+              | CLANG32
+              | MINGW64
+              | MINGW32
+  deriving (Eq, Show, Ord, GHC.Generic, Read)
+
+instance NFData MSYS2Env
+
 data KeepDirs = Always
              | Errors
              | Never