message =
let parser = decode . encodeMsg :: FromServerMessage -> Maybe a
in named (T.pack $ show $ head $ snd $ splitTyConApp $ last $ typeRepArgs $ typeOf parser) $
castMsg <$> satisfy (isJust . parser)
-- | Matches if the message is a notification.
message =
let parser = decode . encodeMsg :: FromServerMessage -> Maybe a
in named (T.pack $ show $ head $ snd $ splitTyConApp $ last $ typeRepArgs $ typeOf parser) $
castMsg <$> satisfy (isJust . parser)
-- | Matches if the message is a notification.