summaryrefslogtreecommitdiff
path: root/testsuite/timeout
diff options
context:
space:
mode:
authorDavid Terei <davidterei@gmail.com>2011-11-15 00:40:44 -0800
committerDavid Terei <davidterei@gmail.com>2011-11-15 00:40:44 -0800
commit4fe140c9fda7ee365e8893663cddc51043b2f7e5 (patch)
tree9bff95ec7bfda16fa81afa861bdbef5ebf6218b1 /testsuite/timeout
parent8a931a6059be3af123373f8798ad075e71d5757a (diff)
downloadhaskell-4fe140c9fda7ee365e8893663cddc51043b2f7e5.tar.gz
cleaning of testsuite
Diffstat (limited to 'testsuite/timeout')
-rw-r--r--testsuite/timeout/TimeMe.hs1
-rw-r--r--testsuite/timeout/WinCBindings.hsc1
-rw-r--r--testsuite/timeout/timeout.cabal13
-rw-r--r--testsuite/timeout/timeout.hs3
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)