Fix indentation + warnings

Tests.hs

-import           Control.Concurrent.MVar               (MVar, putMVar, newEmptyMVar, takeMVar)
+import           Control.Concurrent.MVar               (MVar, putMVar,
+                                                        newEmptyMVar, takeMVar)
 import           Control.Distributed.Process
 import           Control.Distributed.Process.Node
 import qualified Network.Transport as NT               (Transport)
 import           Network.Transport.TCP
 import           Prelude                        hiding (seq)
-import           Test.Framework                        (Test, testGroup, defaultMain)
+import           Test.Framework                        (Test, testGroup,
+                                                        defaultMain)
 import           Test.Framework.Providers.HUnit        (testCase)
-import           Test.HUnit                            (Assertion, assertFailure)
+import           Test.HUnit                            (Assertion)
 import           Test.HUnit.Base                       (assertBool)
 
 import           Bench                                 (seq)
@@ -17,18 +19,18 @@ import           Utils
 
 testSeqShort :: TestResult String -> Process ()
 testSeqShort result = do
-  r <- seq gg13 11
-  stash result r
+    x <- seq gg13 11
+    stash result x
 
 testSeqIntermediate :: TestResult String -> Process ()
 testSeqIntermediate result = do
-  r <- seq gg124 157
-  stash result r
+    x <- seq gg124 157
+    stash result x
 
 testSeqLong :: TestResult String -> Process ()
 testSeqLong result = do
-  r <- seq gg1245 157
-  stash result r
+    x <- seq gg1245 157
+    stash result x
 
 -- Batch the tests
 
@@ -36,17 +38,11 @@ tests :: LocalNode  -> [Test]
 tests localNode = [
     testGroup "Sequential Tests" [
           testCase "testSeqShort"
-                 (delayedAssertion
-                  "short"
-                  localNode "{size,10}" testSeqShort)
+            (delayedAssertion "short" localNode "{size,10}" testSeqShort)
         , testCase "testSeqIntermediate"
-                 (delayedAssertion
-                  "intermediate"
-                  localNode "{size,133}" testSeqIntermediate)
+            (delayedAssertion "intermediate" localNode "{size,133}" testSeqIntermediate)
         , testCase "testSeqLong"
-                 (delayedAssertion
-                  "long"
-                  localNode "{size,134}" testSeqLong)
+            (delayedAssertion "long" localNode "{size,134}" testSeqLong)
       ]
   ]
 
@@ -91,7 +87,7 @@ assertComplete msg mv a = do
 -- | Given a @builder@ function, make and run a test suite on a single transport
 testMain :: (NT.Transport -> IO [Test]) -> IO ()
 testMain builder = do
-  Right (transport, _) <- createTransportExposeInternals
-                                    "127.0.0.1" "10501" defaultTCPParameters
+    Right (transport, _) <-
+      createTransportExposeInternals "127.0.0.1" "10501" defaultTCPParameters
     testData <- builder transport
     defaultMain testData