diff options
| author | Hannes Schulze <haschu0103@outlook.de> | 2024-08-04 20:45:24 +0200 |
|---|---|---|
| committer | Hannes Schulze <haschu0103@outlook.de> | 2024-08-04 20:45:24 +0200 |
| commit | 049dfc4dc5341f6d0e0015dccbb54352351e9e14 (patch) | |
| tree | a9d9e22dfea24c7513d2a07a51c27e8ca0573283 /wayland/Wayland/Server | |
| parent | 0e1add6fae63eb51c5f73caf4dd42838ec955a86 (diff) | |
wrap interfaces
Diffstat (limited to 'wayland/Wayland/Server')
| -rw-r--r-- | wayland/Wayland/Server/System.hsc | 2 |
1 files changed, 2 insertions, 0 deletions
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) |