@@ -40,7 +40,7 @@ runTest :: String -> IO () -> IO Bool
40runTest description test = do
40runTest description test = do
41 putStr $ "Running " ++ show description ++ ": "
41 putStr $ "Running " ++ show description ++ ": "
42 hFlush stdout
42 hFlush stdout
43− done <- try . timeout 30000000 $ test -- 30 seconds
43+ done <- try . timeout 60000000 $ test -- 60 seconds
44 case done of
44 case done of
45 Left err -> failed $ "(exception: " ++ show (err :: SomeException) ++ ")"
45 Left err -> failed $ "(exception: " ++ show (err :: SomeException) ++ ")"
46 Right Nothing -> failed $ "(timeout)"
46 Right Nothing -> failed $ "(timeout)"