From 049dfc4dc5341f6d0e0015dccbb54352351e9e14 Mon Sep 17 00:00:00 2001
From: Hannes Schulze <haschu0103@outlook.de>
Date: Sun, 4 Aug 2024 20:45:24 +0200
Subject: wrap interfaces

---
 wayland/Wayland/Server/System.hsc | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'wayland/Wayland/Server/System.hsc')

diff --git a/wayland/Wayland/Server/System.hsc b/wayland/Wayland/Server/System.hsc
index 60940ce..f758a65 100644
--- a/wayland/Wayland/Server/System.hsc
+++ b/wayland/Wayland/Server/System.hsc
@@ -12,6 +12,7 @@ data WLMessage
               , msgSignature :: CString
               , msgTypes     :: Ptr (Ptr WLInterface)
               }
+  deriving (Show)
 
 data WLInterface
   = WLInterface { ifName        :: CString
@@ -21,6 +22,7 @@ data WLInterface
                 , ifEventCount  :: CInt
                 , ifEvents      :: Ptr WLMessage
                 }
+  deriving (Show)
 
 newtype WLDisplay     = WLDisplay     (Ptr WLDisplay)
 newtype WLEventLoop   = WLEventLoop   (Ptr WLEventLoop)
-- 
cgit v1.3.1