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