'findExecutable' "" should return Nothing, like on linux

Fixes #180
haskell · Aug 17, 2024 · 7582869 · 7582869
1 parent 367241f
commit 7582869
Showing 1 changed file with 6 additions and 3 deletions.
diff --git a/System/Directory/Internal/Windows.hsc b/System/Directory/Internal/Windows.hsc
@@ -409,9 +409,12 @@ canonicalizePathSimplify path =
       pure path
 
 searchPathEnvForExes :: OsString -> IO (Maybe OsPath)
-searchPathEnvForExes (OsString binary) =
-  (OsString <$>) <$>
-    Win32.searchPath Nothing binary (Just (getOsString exeExtension))
+searchPathEnvForExes (OsString binary) = search `catch` \e ->
+  if ioeGetErrorType e == InvalidArgument
+  then pure Nothing
+  else throwIO e
+ where
+  search = (OsString <$>) <$> Win32.searchPath Nothing binary (Just (getOsString exeExtension))
 
 findExecutablesLazyInternal :: ([OsPath] -> OsString -> ListT IO OsPath)
                             -> OsString