Adjust indentation of getBlockHeader

cardano-foundation · Jun 11, 2019 · 2189175 · 2189175
1 parent 6cb662c
commit 2189175
Showing 1 changed file with 21 additions and 21 deletions.
diff --git a/lib/jormungandr/src/Cardano/Wallet/Jormungandr/Binary.hs b/lib/jormungandr/src/Cardano/Wallet/Jormungandr/Binary.hs
@@ -103,27 +103,27 @@ data SignedVote = SignedVote
 {-# ANN module ("HLint: ignore Use <$>" :: String) #-}
 
 getBlockHeader :: Get BlockHeader
-getBlockHeader = label "getBlockHeader"
-    $ (fromIntegral <$> getWord16be) >>= \s -> isolate s $ do
-    version <- getWord16be
-    contentSize <- getWord32be
-    slotEpoch <- fromIntegral <$> getWord32be
-    slotId <- fromIntegral <$> getWord32be
-    chainLength <- getWord32be
-    contentHash <- Hash <$> getByteString 32 -- or 256 bits
-    parentHeaderHash <- Hash <$> getByteString 32
-
-    -- TODO: Handle special case for BFT
-    -- TODO: Handle special case for Praos/Genesis
-
-    return $ BlockHeader
-        { version
-        , contentSize
-        , slot = (SlotId slotId slotEpoch)
-        , chainLength
-        , contentHash
-        , parentHeaderHash
-        }
+getBlockHeader = label "getBlockHeader" $
+    (fromIntegral <$> getWord16be) >>= \s -> isolate s $ do
+        version <- getWord16be
+        contentSize <- getWord32be
+        slotEpoch <- fromIntegral <$> getWord32be
+        slotId <- fromIntegral <$> getWord32be
+        chainLength <- getWord32be
+        contentHash <- Hash <$> getByteString 32 -- or 256 bits
+        parentHeaderHash <- Hash <$> getByteString 32
+
+        -- TODO: Handle special case for BFT
+        -- TODO: Handle special case for Praos/Genesis
+
+        return $ BlockHeader
+            { version
+            , contentSize
+            , slot = (SlotId slotId slotEpoch)
+            , chainLength
+            , contentHash
+            , parentHeaderHash
+            }
 
 getBlock :: Get Block
 getBlock = label "getBlock" $ do