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 _                      -> []