Permalink
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...
2 parents d5dbe4c + a9d574e commit 9c1947fcf5b3ccd278dfc49d19c98151f597b9c9 @simonmar committed Feb 26, 2013
Showing with 1 addition and 10 deletions.
  1. +1 −0 Async.hs
  2. +0 −3 geturls7.hs
  3. +0 −1 geturls8.hs
  4. +0 −1 geturls9.hs
  5. +0 −5 geturlsfirst.hs
View
@@ -8,6 +8,7 @@ module Async (
waitSTM,
wait,
waitEither,
+ waitAny,
waitBoth,
concurrently
) where
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
View
@@ -1,5 +1,4 @@
import GetURL
-import TimeIt
import Async
View
@@ -1,5 +1,4 @@
import GetURL
-import TimeIt
import Async
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

0 comments on commit 9c1947f

Please sign in to comment.