@@ -23,6 +23,7 @@ import Control.Monad.Trans.Maybe
2323
2424import System.Process
2525import System.Directory
26+import System.Info
2627
2728findNodeProcess :: IO (Maybe String)
2829findNodeProcess = runMaybeT . msum $ map (MaybeT . findExecutable) names
@@ -33,9 +34,12 @@ fetchSupportCode :: IO ()
3334fetchSupportCode = do
3435 node <- fromMaybe (error "cannot find node executable") <$> findNodeProcess
3536 setCurrentDirectory "tests/support"
36− callProcess "npm" ["install"]
37− -- Sometimes we run as a root (e.g. in simple docker containers)
38− -- And we are non-interactive: https://github.com/bower/bower/issues/1162
39− callProcess "node_modules/.bin/bower" ["--allow-root", "install", "--config.interactive=false"]
37+ if System.Info.os == "mingw32"
38+ then callProcess "setup-win.cmd" []
39+ else do
40+ callProcess "npm" ["install"]
41+ -- Sometimes we run as a root (e.g. in simple docker containers)
42+ -- And we are non-interactive: https://github.com/bower/bower/issues/1162
43+ callProcess "node_modules/.bin/bower" ["--allow-root", "install", "--config.interactive=false"]
4044 callProcess node ["setup.js"]
4145 setCurrentDirectory "../.."