From a2908a6f31ea480b2236ff62d76157b2f01ed5b7 Mon Sep 17 00:00:00 2001 From: Alan Zimmerman Date: Thu, 14 Dec 2017 16:37:58 +0200 Subject: Clean up --- tests/GhcSession.hs | 15 +++++---------- 1 file changed, 5 insertions(+), 10 deletions(-) (limited to 'tests') diff --git a/tests/GhcSession.hs b/tests/GhcSession.hs index f679751..0896780 100644 --- a/tests/GhcSession.hs +++ b/tests/GhcSession.hs @@ -32,10 +32,10 @@ main = do topdir <- getCurrentDirectory res <- mapM (setup topdir test) $ case args of [] -> [ - -- ("tests/exelib" , parseVer "1.10") - -- , ("tests/exeintlib", parseVer "2.0") - -- , ("tests/fliblib" , parseVer "2.0") - ("tests/bkpregex" , parseVer "2.0") + ("tests/exelib" , parseVer "1.10") + , ("tests/exeintlib", parseVer "2.0") + , ("tests/fliblib" , parseVer "2.0") + , ("tests/bkpregex" , parseVer "2.0") ] xs -> map (,parseVer "0") xs @@ -70,12 +70,7 @@ setup topdir act (srcdir, min_cabal_ver) = do putStrLn $ "Skipping test '" ++ srcdir ++ "' because " ++ reason ++ "." return [] Nothing -> do - -- withSystemTempDirectory "cabal-helper.ghc-session.test" $ \dir -> do - let dir = "/tmp/xxxx" - e <- doesDirectoryExist dir - when e $ removeDirectoryRecursive dir - createDirectoryIfMissing True dir - do + withSystemTempDirectory "cabal-helper.ghc-session.test" $ \dir -> do setCurrentDirectory $ topdir srcdir run "cabal" [ "sdist", "--output-dir", dir ] -- cgit v1.2.3