Make it clear that getFragment corresponds to FRAGMENT.

From the specification: https://github.com/input-output-hk/chain-libs/blob/611b26f5f7c92a2ad088846b10c5bcca99830cfe/chain-impl-mockchain/doc/format.abnf#L35
cardano-foundation · Nov 25, 2019 · 7a06c5e · 7a06c5e
1 parent 8a63879
commit 7a06c5e
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/lib/jormungandr/src/Cardano/Wallet/Jormungandr/Binary.hs b/lib/jormungandr/src/Cardano/Wallet/Jormungandr/Binary.hs
@@ -318,6 +318,9 @@ getTxWitnessTag = getWord8 >>= \case
     other -> fail $ "Invalid witness type: " ++ show other
 
 -- | Decode a fragment (header + contents).
+--
+-- Corresponds to FRAGMENT in the specification.
+--
 getFragment :: Get Fragment
 getFragment = label "getFragment" $ do
     size <- fromIntegral <$> getWord16be