Skip to content
Snippets Groups Projects
Verified Commit 6aeaac46 authored by Legy (Beini)'s avatar Legy (Beini)
Browse files

Add Show and Generic instances for the SubscribableMessage

parent f283b693
No related branches found
No related tags found
No related merge requests found
Pipeline #2492 passed
......@@ -20,6 +20,7 @@ import Quasar.ResourceManager
data SubscribableMessage r
= SubscribableUpdate r
| SubscribableNotAvailable SomeException
deriving stock (Show, Generic)
instance Functor SubscribableMessage where
fmap fn (SubscribableUpdate r) = SubscribableUpdate (fn r)
fmap _ (SubscribableNotAvailable ex) = SubscribableNotAvailable ex
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment