From 67b27fa5bbc171c68377695dc1db7b12647cbdb1 Mon Sep 17 00:00:00 2001
From: Ian Shipman <ian.shipman@bitnomial.com>
Date: Mon, 5 Aug 2019 15:41:06 -0500
Subject: [PATCH] whitespace

---
 src/Test/Main.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Test/Main.hs b/src/Test/Main.hs
index 1a68430..c4f6f3a 100644
--- a/src/Test/Main.hs
+++ b/src/Test/Main.hs
@@ -43,7 +43,7 @@ nbTest name = testProperty name . once . monadicIO
 canGenerateBlocks :: TestTree
 canGenerateBlocks = nbTest "generateToAddress" $ do
     void . run $ do
-        c             <- client
+        c          <- client
         rewardAddr <- getNewAddress c Nothing
         M.generateToAddress c 101 rewardAddr Nothing
     assert True
@@ -100,7 +100,7 @@ canSendPayment = nbTest "send payment" $ do
     amt <- pick . suchThat arbitrary $ \x -> x < bal && x > 0
 
     (addr, recv) <- run $ do
-        addr       <- getNewAddress c Nothing
+        addr <- getNewAddress c Nothing
         sendToAddress c addr amt Nothing Nothing
         M.generate c 6 Nothing
         (addr,) <$> listReceivedByAddress c