@@ -52,6 +52,7 @@ import System.IO (stderr)
5252import System.IO.Silently
5353import System.IO.Temp
5454import System.Process
55+import System.Which (staticWhich)
5556import qualified Test.HUnit as HUnit (assertEqual, assertFailure)
5657import qualified Test.Hspec as H
5758import qualified Test.Hspec.Core.Spec as H
@@ -74,6 +75,9 @@ import qualified Test.WebDriver.Capabilities as WD
7475import Test.Util.ChromeFlags
7576import Test.Util.UnshareNetwork
7677
78+chromium :: FilePath
79+chromium = $(staticWhich "chromium")
80+
7781seleniumPort, jsaddlePort :: PortNumber
7882seleniumPort = 8000
7983jsaddlePort = 8001
@@ -123,7 +127,7 @@ main = do
123127 isHeadless <- (== Nothing) <$> lookupEnv "NO_HEADLESS"
124128 withSandboxedChromeFlags isHeadless $ \chromeFlags -> do
125129 withSeleniumServer $ \selenium -> do
126− browserPath <- liftIO $ T.strip . T.pack <$> readProcess "which" [ "chromium" ] ""
130+ let browserPath = T.strip $ T.pack chromium
127131 when (T.null browserPath) $ fail "No browser found"
128132 withDebugging <- isNothing <$> lookupEnv "NO_DEBUG"
129133 let wdConfig = WD.defaultConfig { WD.wdPort = fromIntegral $ _selenium_portNumber selenium }