add putSignatureHashAlgorithm
This commit is contained in:
parent
887c69b6e5
commit
1ac0cc9485
1 changed files with 4 additions and 0 deletions
|
@ -451,6 +451,10 @@ getSignatureHashAlgorithm = do
|
|||
h <- fromJust . valToType <$> getWord8
|
||||
s <- fromJust . valToType <$> getWord8
|
||||
return (h,s)
|
||||
|
||||
putSignatureHashAlgorithm :: HashAndSignatureAlgorithm -> Put
|
||||
putSignatureHashAlgorithm (h,s) =
|
||||
putWord8 (valOfType h) >> putWord8 (valOfType s)
|
||||
{-
|
||||
- decode and encode ALERT
|
||||
-}
|
||||
|
|
Loading…
Reference in a new issue