From 7cdaf400225d59b0f4c3c4acb89164731c4e9bc3 Mon Sep 17 00:00:00 2001 From: Dmitry Zuikov Date: Mon, 15 Apr 2024 07:01:00 +0300 Subject: [PATCH] minor fix --- hbs2-peer/lib/HBS2/Peer/Proto/RefChan/Types.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/hbs2-peer/lib/HBS2/Peer/Proto/RefChan/Types.hs b/hbs2-peer/lib/HBS2/Peer/Proto/RefChan/Types.hs index d7bc676b..4b5c7343 100644 --- a/hbs2-peer/lib/HBS2/Peer/Proto/RefChan/Types.hs +++ b/hbs2-peer/lib/HBS2/Peer/Proto/RefChan/Types.hs @@ -200,7 +200,7 @@ refChanHeadDisclosed = to getDisclosed extractDisclosed :: ByteString -> [RefChanDisclosedCredentialsRef e] 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 _ -> []