diff --git a/src/Quasar/Subscribable.hs b/src/Quasar/Subscribable.hs
index dece28e63e8911254bcb83e08fc18daf6654af2f..ba0a651d3297cd79b66e12f1f3d1771cd6f006de 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