Apply suggestions from code review

Co-authored-by: Björn Kihlberg <38290734+bjornkihlberg@users.noreply.github.com>
input-output-hk · Nov 29, 2022 · 2a20a72 · 2a20a72
1 parent 2b73f48
commit 2a20a72
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/marlowe-runtime/web-server/Language/Marlowe/Runtime/Web/Server/HistoryClient.hs b/marlowe-runtime/web-server/Language/Marlowe/Runtime/Web/Server/HistoryClient.hs
@@ -13,7 +13,7 @@ import Control.Concurrent.STM (STM, atomically)
 import Control.Error (note)
 import Data.Foldable (foldlM)
 import Data.List (sortOn)
-import Data.List.NonEmpty (NonEmpty((:|)))
+import Data.List.NonEmpty (NonEmpty((:|)), (<|))
 import qualified Data.List.NonEmpty as NE
 import Data.Maybe (isNothing, listToMaybe, mapMaybe)
 import Data.Void (Void)
@@ -320,7 +320,7 @@ loadTransactionClient eb contractId txId = MarloweSyncClient $ pure clientInit
       -> SeekTx v
       -> IO (SeekTx v)
     rollbackStepTx ev block = \case
-      SeekTx prevOutputs ->pure $ SeekTx $ rollbackPrevOutputs block prevOutputs
+      SeekTx prevOutputs -> pure $ SeekTx $ rollbackPrevOutputs block prevOutputs
       SeekConsuming prevOutputs tx
         | block < blockHeader tx -> do
             addField ev $ LostTx $ show $ transactionId tx