git.iko.soy/distributed-process
on master help sign in
cosmetic
be75b77Tim Watson
distributed-process/tests/TestStats.hs+12−12
compare with master
unifiedsplit
@@ -2,13 +2,12 @@
2{-# OPTIONS_GHC -fno-warn-orphans #-}
2{-# OPTIONS_GHC -fno-warn-orphans #-}
3module Main where
3module Main where
4
4
5−import Prelude hiding (catch, log)
5+import Control.Concurrent.MVar
6−import Test.Framework
6+ ( MVar
7− ( Test
7+ , newEmptyMVar
8− , defaultMain
8+ , putMVar
9− , testGroup
9+ , takeMVar
10 )
10 )
11−import Network.Transport.TCP
12import Control.Distributed.Process
11import Control.Distributed.Process
13import Control.Distributed.Process.Node
12import Control.Distributed.Process.Node
14 ( forkProcess
13 ( forkProcess
@@ -16,14 +15,15 @@ import Control.Distributed.Process.Node
16 , initRemoteTable
15 , initRemoteTable
17 , closeLocalNode
16 , closeLocalNode
18 , LocalNode)
17 , LocalNode)
19−import Control.Concurrent.MVar
20− ( MVar
21− , newEmptyMVar
22− , putMVar
23− , takeMVar
24− )
25import Data.Binary()
18import Data.Binary()
26import Data.Typeable()
19import Data.Typeable()
20+import Network.Transport.TCP
21+import Prelude hiding (catch, log)
22+import Test.Framework
23+ ( Test
24+ , defaultMain
25+ , testGroup
26+ )
27import Test.HUnit (Assertion)
27import Test.HUnit (Assertion)
28import Test.HUnit.Base (assertBool)
28import Test.HUnit.Base (assertBool)
29import Test.Framework.Providers.HUnit (testCase)
29import Test.Framework.Providers.HUnit (testCase)