From 6aeaac465632002a79789863a211aeff37c06474 Mon Sep 17 00:00:00 2001 From: Jan Beinke <git@janbeinke.com> Date: Thu, 30 Sep 2021 01:01:40 +0200 Subject: [PATCH] Add Show and Generic instances for the SubscribableMessage --- src/Quasar/Subscribable.hs | 1 + 1 file changed, 1 insertion(+) diff --git a/src/Quasar/Subscribable.hs b/src/Quasar/Subscribable.hs index dece28e..ba0a651 100644 --- a/src/Quasar/Subscribable.hs +++ b/src/Quasar/Subscribable.hs @@ -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 -- GitLab