wayland/Wayland/Server/Client.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

module Wayland.Server.Client
  ( Client
  , unwrapClient
  , wrapClient
  ) where

import Wayland.Server.System

data Client = Client WLClient
  deriving (Show, Eq)

unwrapClient :: Client -> IO WLClient
unwrapClient (Client c) = pure c

wrapClient :: WLClient -> IO Client
wrapClient c = pure $ Client c

-- TODO: Lifecycle