Improve openFileExplorerFolderPortable on windows

codedownio · Oct 25, 2024 · 6f2fbd8 · 6f2fbd8
1 parent 2e19576
commit 6f2fbd8
Showing 1 changed file with 11 additions and 1 deletion.
diff --git a/sandwich/src/Test/Sandwich/Formatters/TerminalUI/CrossPlatform.hs b/sandwich/src/Test/Sandwich/Formatters/TerminalUI/CrossPlatform.hs
@@ -1,13 +1,23 @@
--- |
+{-# LANGUAGE CPP #-}
+{-# LANGUAGE QuasiQuotes #-}
 
 module Test.Sandwich.Formatters.TerminalUI.CrossPlatform (
   openFileExplorerFolderPortable
   ) where
 
 import Control.Monad
+import System.Directory
 import System.Process
 
+
 -- | TODO: report exceptions here
 openFileExplorerFolderPortable :: String -> IO ()
+#ifdef mingw32_HOST_OS
 openFileExplorerFolderPortable folder = do
+  findExecutable "explorer.exe" >>= \case
+    Just p -> void $ readCreateProcessWithExitCode (proc p [folder]) ""
+    Nothing -> return ()
+#else
+openFileExplorerFolderPortable folder =
   void $ readCreateProcessWithExitCode (proc "xdg-open" [folder]) ""
+#endif