@@ -39,7 +39,6 @@ import Instances ()
3939import System.Directory (doesDirectoryExist, getDirectoryContents)
4040import System.Exit (exitWith, ExitCode(ExitFailure))
4141import System.FilePath ((</>), takeExtension, takeFileName)
42−import System.IO (hPutStrLn, stderr)
4342import Test.Framework (Test, testGroup)
4443import Test.Framework.Providers.HUnit (testCase)
4544import Test.HUnit (Assertion, assertBool, assertFailure, assertEqual)
@@ -422,11 +421,6 @@ jsonTestSuite :: IO Test
422421jsonTestSuite = do
423422 let suitePath = "tests/JSONTestSuite"
424423 exists <- doesDirectoryExist suitePath
425− unless exists $ do
426− hPutStrLn stderr $ "git clone https://github.com/nst/JSONTestSuite " ++
427− suitePath
428− exitWith (ExitFailure 1)
429− -- ignore test_transform for now
430424 let suites = ["test_parsing", "test_transform"]
431425 testPaths <- fmap (sort . concat) . forM suites $ \suite -> do
432426 let dir = suitePath </> suite