From 4d51231141d9f35074660e101c478b664b96683d Mon Sep 17 00:00:00 2001 From: Hannes Schulze Date: Thu, 8 Aug 2024 00:43:43 +0200 Subject: wip refactoring --- wayland/Wayland/Server/Client.hs | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) create mode 100644 wayland/Wayland/Server/Client.hs (limited to 'wayland/Wayland/Server/Client.hs') diff --git a/wayland/Wayland/Server/Client.hs b/wayland/Wayland/Server/Client.hs new file mode 100644 index 0000000..99d11d6 --- /dev/null +++ b/wayland/Wayland/Server/Client.hs @@ -0,0 +1,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 -- cgit v1.3.1