diff options
author | David Terei <davidterei@gmail.com> | 2011-11-15 00:40:44 -0800 |
---|---|---|
committer | David Terei <davidterei@gmail.com> | 2011-11-15 00:40:44 -0800 |
commit | 4fe140c9fda7ee365e8893663cddc51043b2f7e5 (patch) | |
tree | 9bff95ec7bfda16fa81afa861bdbef5ebf6218b1 /testsuite/timeout | |
parent | 8a931a6059be3af123373f8798ad075e71d5757a (diff) | |
download | haskell-4fe140c9fda7ee365e8893663cddc51043b2f7e5.tar.gz |
cleaning of testsuite
Diffstat (limited to 'testsuite/timeout')
-rw-r--r-- | testsuite/timeout/TimeMe.hs | 1 | ||||
-rw-r--r-- | testsuite/timeout/WinCBindings.hsc | 1 | ||||
-rw-r--r-- | testsuite/timeout/timeout.cabal | 13 | ||||
-rw-r--r-- | testsuite/timeout/timeout.hs | 3 |
4 files changed, 7 insertions, 11 deletions
diff --git a/testsuite/timeout/TimeMe.hs b/testsuite/timeout/TimeMe.hs index 77f60ecdef..5d48265c3f 100644 --- a/testsuite/timeout/TimeMe.hs +++ b/testsuite/timeout/TimeMe.hs @@ -1,4 +1,3 @@ - module Main (main) where import System.IO diff --git a/testsuite/timeout/WinCBindings.hsc b/testsuite/timeout/WinCBindings.hsc index 0bc1cb7aef..51764dc5df 100644 --- a/testsuite/timeout/WinCBindings.hsc +++ b/testsuite/timeout/WinCBindings.hsc @@ -1,5 +1,4 @@ {-# LANGUAGE CPP, ForeignFunctionInterface #-} - module WinCBindings where #if defined(mingw32_HOST_OS) diff --git a/testsuite/timeout/timeout.cabal b/testsuite/timeout/timeout.cabal index 70ee3e512e..c44eadf02d 100644 --- a/testsuite/timeout/timeout.cabal +++ b/testsuite/timeout/timeout.cabal @@ -1,14 +1,11 @@ Name: timeout --- XXX Version number: Version: 1 -Copyright: XXX +Copyright: GHC Team License: BSD3 --- XXX License-File: LICENSE -Author: XXX -Maintainer: XXX -Synopsis: XXX -Description: - XXX +Author: GHC Team <cvs-ghc@haskell.org> +Maintainer: GHC Team <cvs-ghc@haskell.org> +Synopsis: timout utility +Description: timeout utility Category: Development build-type: Simple cabal-version: >=1.2 diff --git a/testsuite/timeout/timeout.hs b/testsuite/timeout/timeout.hs index 3a709b9f2c..3d27f56706 100644 --- a/testsuite/timeout/timeout.hs +++ b/testsuite/timeout/timeout.hs @@ -1,15 +1,16 @@ {-# OPTIONS -cpp #-} +module Main where import Prelude hiding (catch) import Control.Concurrent (forkIO, threadDelay) import Control.Concurrent.MVar (putMVar, takeMVar, newEmptyMVar) +import Control.Monad import Control.Exception import Data.Maybe (isNothing) import System.Environment (getArgs) import System.Exit import System.IO (hPutStrLn, stderr) -import Control.Monad #if !defined(mingw32_HOST_OS) import System.Posix hiding (killProcess) |