@@ -1,11 +1,12 @@
1{-# LANGUAGE DeriveDataTypeable #-}
1{-# LANGUAGE DeriveDataTypeable #-}
2{-# LANGUAGE RecordWildCards #-}
2{-# LANGUAGE RecordWildCards #-}
3+{-# LANGUAGE ScopedTypeVariables #-}
3module Stackage.Test
4module Stackage.Test
4 ( runTestSuites
5 ( runTestSuites
7import qualified Control.Concurrent as C
8import qualified Control.Concurrent as C
8−import Control.Exception (Exception, SomeException, handle, throwIO)
9+import Control.Exception (Exception, SomeException, handle, throwIO, IOException)
9import Control.Monad (replicateM, unless, when, forM_)
10import Control.Monad (replicateM, unless, when, forM_)
10import qualified Data.Map as Map
11import qualified Data.Map as Map
11import qualified Data.Set as Set
12import qualified Data.Set as Set
@@ -149,7 +150,7 @@ runTestSuite cabalVersion settings testdir docdir (packageName, SelectedPackageI
149 , "--html-location=../$pkg-$version/"
150 , "--html-location=../$pkg-$version/"
151 let PackageName packageName' = packageName
152 let PackageName packageName' = packageName
152− renameDirectory
153+ handle (\(_ :: IOException) -> return ()) $ renameDirectory
153 (dir </> "dist" </> "doc" </> "html" </> packageName')
154 (dir </> "dist" </> "doc" </> "html" </> packageName')
154 (docdir </> package)
155 (docdir </> package)
155 return True
156 return True