Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Merge branch 'master' of github.com:simonmar/parconc-examples

* 'master' of github.com:simonmar/parconc-examples:
  Remove redundant import.
  Remove redundant imports.
  waitAny should be exported from Async.
  Remove redundant imports.
  Remove redundant imports.
  • Loading branch information...
commit 9c1947fcf5b3ccd278dfc49d19c98151f597b9c9 2 parents d5dbe4c + a9d574e
Simon Marlow authored
1  Async.hs
View
@@ -8,6 +8,7 @@ module Async (
waitSTM,
wait,
waitEither,
+ waitAny,
waitBoth,
concurrently
) where
3  geturls7.hs
View
@@ -1,15 +1,12 @@
{-# LANGUAGE CPP #-}
import GetURL
-import TimeIt
-import Control.Monad
import Control.Concurrent
#if __GLASGOW_HASKELL__ < 706
import ConcurrentUtils (forkFinally)
#endif
import Control.Exception
-import Text.Printf
import qualified Data.ByteString as B
import Control.Concurrent.STM
1  geturls8.hs
View
@@ -1,5 +1,4 @@
import GetURL
-import TimeIt
import Async
1  geturls9.hs
View
@@ -1,5 +1,4 @@
import GetURL
-import TimeIt
import Async
5 geturlsfirst.hs
View
@@ -4,19 +4,14 @@
module Main where
import GetURL
-import TimeIt
-import Data.Either
#if __GLASGOW_HASKELL__ < 706
import ConcurrentUtils (forkFinally)
#endif
import Control.Concurrent
import Control.Exception
-import Control.Monad
import Control.Concurrent.STM
-import Control.Applicative
import Text.Printf
-import qualified Data.ByteString as B
-- -----------------------------------------------------------------------------
-- STM Async API
Please sign in to comment.
Something went wrong with that request. Please try again.