@@ -1,11 +1,12 @@
11{-# LANGUAGE DeriveDataTypeable #-}
22{-# LANGUAGE RecordWildCards #-}
3+{-# LANGUAGE ScopedTypeVariables #-}
34module Stackage.Test
45 ( runTestSuites
56 ) where
67
78import qualified Control.Concurrent as C
8−import Control.Exception (Exception, SomeException, handle, throwIO)
9+import Control.Exception (Exception, SomeException, handle, throwIO, IOException)
910import Control.Monad (replicateM, unless, when, forM_)
1011import qualified Data.Map as Map
1112import qualified Data.Set as Set
@@ -149,7 +150,7 @@ runTestSuite cabalVersion settings testdir docdir (packageName, SelectedPackageI
149150 , "--html-location=../$pkg-$version/"
150151 ] dir
151152 let PackageName packageName' = packageName
152− renameDirectory
153+ handle (\(_ :: IOException) -> return ()) $ renameDirectory
153154 (dir </> "dist" </> "doc" </> "html" </> packageName')
154155 (docdir </> package)
155156 return True