Merge pull request #4332 from mpilgrem/test

Fix #3797 (Windows 10: re `git submodule` usage)
commercialhaskell · Oct 2, 2018 · 19e4863 · 19e4863
2 parents a299ac6 + 61dae3c
commit 19e4863
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/subs/pantry/src/Pantry/Repo.hs b/subs/pantry/src/Pantry/Repo.hs
@@ -101,6 +101,11 @@ getRepo' repo@(Repo url commit repoType' subdir) pm =
     withWorkingDir dir $ do
       runCommand resetArgs
       traverse_ runCommand submoduleArgs
+      -- On Windows 10, an upstream issue with the `git submodule` command means
+      -- that command clears, but does not then restore, the
+      -- ENABLE_VIRTUAL_TERMINAL_PROCESSING flag for native terminals. The
+      -- folowing hack re-enables the lost ANSI-capability.
+      when osIsWindows $ void $ liftIO $ hSupportsANSIWithoutEmulation stdout
       runCommand archiveArgs
     abs' <- resolveFile' tarball
     getArchive