haskell/stackage
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage.git synced 2026-01-12 07:18:31 +01:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

Exception safety

Browse Source
This commit is contained in:
Michael Snoyman 2014-10-19 11:01:52 +03:00
parent c880ef6060
commit c7b2d2303f
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Stackage/Test.hs
View File

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