File tree Expand file tree Collapse file tree 2 files changed +5
-2
lines changed Expand file tree Collapse file tree 2 files changed +5
-2
lines changed Original file line number Diff line number Diff line change 11{-# LANGUAGE DeriveDataTypeable #-}
2+ {-# LANGUAGE ScopedTypeVariables #-}
23
34import Control.Applicative
45import Control.Arrow
@@ -113,14 +114,15 @@ copyStackRoot src dst =
113114 Just suffix <- return $ stripPrefix src srcfp
114115 let dstfp = dst ++ " /" ++ suffix
115116 createDirectoryIfMissing True $ takeDirectory dstfp
116- createSymbolicLink srcfp dstfp
117+ createSymbolicLink srcfp dstfp `catch` \ (_ :: IOException ) ->
118+ copyFile srcfp dstfp -- for Windows
117119 where
118120 toCopy = any (`isSuffixOf` srcfp)
119121 -- FIXME command line parameters to control how many of these get
120122 -- copied, trade-off of runtime/bandwidth vs isolation of tests
121123 [ " .tar"
122124 , " .xz"
123- , " .gz"
125+ -- , ".gz"
124126 , " .7z.exe"
125127 , " 00-index.cache"
126128 ]
Original file line number Diff line number Diff line change @@ -21,6 +21,7 @@ executable stack-integration-dummy
2121test-suite stack-integration-tests
2222 type : exitcode-stdio-1.0
2323 main-is : Spec.hs
24+ ghc-options : -Wall -threaded -rtsopts -with-rtsopts=-N
2425
2526 build-depends : base >= 4.7 && < 10
2627 , temporary
You can’t perform that action at this time.
0 commit comments