voidlizard
/
hbs2
mirror of https://github.com/voidlizard/hbs2
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

minor fix

This commit is contained in:
Dmitry Zuikov 2024-04-15 07:01:00 +03:00
parent b7e120715a
commit 7cdaf40022
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
hbs2-peer/lib/HBS2/Peer/Proto/RefChan/Types.hs
View File

@ -200,7 +200,7 @@ refChanHeadDisclosed = to getDisclosed
extractDisclosed :: ByteString -> [RefChanDisclosedCredentialsRef e] extractDisclosed :: ByteString -> [RefChanDisclosedCredentialsRef e]
extractDisclosed ext = case deserialiseOrFail @(RefChanHeadExt e) (LBS.fromStrict ext) of extractDisclosed ext = case deserialiseOrFail @(RefChanHeadExt e) (LBS.fromStrict ext) of
Right (RefChanHeadExt exts) -> rights $ map (deserialiseOrFail @(RefChanDisclosedCredentialsRef e)) exts Right (RefChanHeadExt exts) -> rights $ fmap (deserialiseOrFail @(RefChanDisclosedCredentialsRef e)) exts
Left _ -> [] Left _ -> []