Skip to content
Snippets Groups Projects
Commit 31e6ac64 authored by Jens Nolte's avatar Jens Nolte
Browse files

Remove explicit Typeable instances

parent c58d6da6
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
src/Quasar/Wayland/Protocol/Core.hs
+ 1
− 2
View file @ 31e6ac64
...@@ -248,7 +248,7 @@ class IsInterfaceSide s i => IsInterfaceHandler s i a where ...@@ -248,7 +248,7 @@ class IsInterfaceSide s i => IsInterfaceHandler s i a where
-- | Data kind -- | Data kind
data Side = Client | Server data Side = Client | Server
deriving stock (Eq, Show, Typeable) deriving stock (Eq, Show)
-- | An object belonging to a wayland connection. -- | An object belonging to a wayland connection.
...@@ -257,7 +257,6 @@ data Object s i = IsInterfaceSide s i => Object { ...@@ -257,7 +257,6 @@ data Object s i = IsInterfaceSide s i => Object {
objectId :: ObjectId (InterfaceName i), objectId :: ObjectId (InterfaceName i),
messageHandler :: TVar (Maybe (MessageHandler s i)) messageHandler :: TVar (Maybe (MessageHandler s i))
} }
deriving stock Typeable
getMessageHandler :: Object s i -> STM (MessageHandler s i) getMessageHandler :: Object s i -> STM (MessageHandler s i)
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment