@@ -2,13 +2,12 @@
22{-# OPTIONS_GHC -fno-warn-orphans #-}
33module Main where
44
5−import Prelude hiding (catch, log)
6−import Test.Framework
7− ( Test
8− , defaultMain
9− , testGroup
5+import Control.Concurrent.MVar
6+ ( MVar
7+ , newEmptyMVar
8+ , putMVar
9+ , takeMVar
1010 )
11−import Network.Transport.TCP
1211import Control.Distributed.Process
1312import Control.Distributed.Process.Node
1413 ( forkProcess
@@ -16,14 +15,15 @@ import Control.Distributed.Process.Node
1615 , initRemoteTable
1716 , closeLocalNode
1817 , LocalNode)
19−import Control.Concurrent.MVar
20− ( MVar
21− , newEmptyMVar
22− , putMVar
23− , takeMVar
24− )
2518import Data.Binary()
2619import Data.Typeable()
20+import Network.Transport.TCP
21+import Prelude hiding (catch, log)
22+import Test.Framework
23+ ( Test
24+ , defaultMain
25+ , testGroup
26+ )
2727import Test.HUnit (Assertion)
2828import Test.HUnit.Base (assertBool)
2929import Test.Framework.Providers.HUnit (testCase)