Skip to content
Permalink
Browse files

some polish

  • Loading branch information...
Anviking committed May 15, 2019
1 parent c967040 commit cc85a1152e4aa98d09b5de2430f5b9eaac9aa4f5
Showing with 5 additions and 5 deletions.
  1. +5 −5 lib/jormungandr/src/Cardano/Wallet/Binary/Jormungandr.hs
@@ -163,14 +163,15 @@ data ConfigParam
| ProposalExpiration Word32
deriving (Eq, Show)

-- | @TagLen@ contains the tag/type of a @ConfigParam@ as well as the length
-- | @TagLen@ contains the tag/type of a @ConfigParam@ as well as its length
-- in number of bytes.
--
-- This information is stored in a /single/ @Word16@ in the binary format.
-- (@getTagLen@)
{-# ANN len ("HLint: ignore Defined but not used" :: String) #-}
{-# ANN tag ("HLint: ignore Defined but not used" :: String) #-}
data TagLen = TagLen { tag :: Int, len :: Int}
data TagLen = TagLen
{ tag :: Int -- | The kind of @ConfigParam@
, len :: Int -- | The length of the encoded @ConfigParam@ in bytes
}

getTagLen :: Get TagLen
getTagLen = do
@@ -212,7 +213,6 @@ newtype LeaderId = LeaderId ByteString
data LinearFee = LinearFee Word64 Word64 Word64
deriving (Eq, Show)


getDiscrimination :: Get Discrimination
getDiscrimination = getWord8 >>= \case
1 -> return Production

0 comments on commit cc85a11

Please sign in to comment.
You can’t perform that action at this time.