Runtime errors using stack and ghc-8.6.4/ghc-8.4.4 on windows

[jneira]

Error running the test suite with stack and ghc-8.6.4

Catched in the test suite of haskell-ide-engine: https://dev.azure.com/jneira/haskell-ide-engine/_build/results?buildId=434
With other ghc versions it works fine.
Maybe it can affect the normal use of hie (pending of testing)
Error:

src\CabalHelper\Compiletime\CompPrograms.hs:95:5: 
  1) CabalHelper, cabal-helper spec, cradle discovery, dummy filepath, finds none-cradle, stack repo, dummy filepath
       uncaught exception: IOException of type UserError
       user error (Pattern match failure in do expression at src\CabalHelper\Compiletime\CompPrograms.hs:95:5-17)

cabal-helper/src/CabalHelper/Compiletime/CompPrograms.hs

Lines 92 to 99 in 1c0f2e8

	createProgSymlink :: FilePath -> FilePath -> IO ()
	createProgSymlink bindir target
	| [exe] <- splitPath target = do
	Just exe_path <- findExecutable exe
	createSymbolicLink exe_path (bindir </> takeFileName target)
	| otherwise = do
	cwd <- getCurrentDirectory
	createSymbolicLink (cwd </> target) (bindir </> takeFileName target)

[jneira]

I've found another slightly diff error running with cabal (but no with stack) and ghc-8.4.4:

• azure job

Failures:

  src\CabalHelper\Compiletime\Program\Stack.hs:88:19: 
  1) CabalHelper, cabal-helper spec, cradle discovery, dummy filepath, finds none-cradle, stack repo, dummy filepath
       uncaught exception: PatternMatchFail
       src\CabalHelper\Compiletime\Program\Stack.hs:88:19-59: Irrefutable pattern failed for pattern (key,
                                                              ' ' : val)

cabal-helper/src/CabalHelper/Compiletime/Program/Stack.hs

Lines 81 to 88 in 1c0f2e8

	paths :: QueryEnvI c 'Stack -> FilePath -> IO (String -> FilePath)
	paths qe@QueryEnv{qeProjLoc=ProjLocStackYaml stack_yaml} cwd
	= do
	out <- readStackCmd qe (Just cwd) $
	workdirArg qe ++ [ "path", "--stack-yaml="++stack_yaml ]
	return $ \k -> let Just x = lookup k $ map split $ lines out in x
	where
	split l = let (key, ' ' : val) = span (not . isSpace) l in (key, val)