Permalink
Browse files

Merge pull request #4 from kosmikus/geturls

Remove redundant imports.
  • Loading branch information...
simonmar committed Feb 26, 2013
2 parents 8619789 + c57d877 commit a9d574eb390c6ed234405d96e647a148450ea871
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 a9d574e

Please sign in to comment.