diff options
| author | Hannes Schulze <haschu0103@outlook.de> | 2024-08-08 00:43:43 +0200 |
|---|---|---|
| committer | Hannes Schulze <haschu0103@outlook.de> | 2024-08-08 00:43:43 +0200 |
| commit | 4d51231141d9f35074660e101c478b664b96683d (patch) | |
| tree | cc6d7014e51f31aa30601db6a57a4d78ca3fdcb3 /wayland/Wayland/Server/Client.hs | |
| parent | 5b086e236ab3903a717dfac115bebc6e5d006c07 (diff) | |
wip refactoring
Diffstat (limited to 'wayland/Wayland/Server/Client.hs')
| -rw-r--r-- | wayland/Wayland/Server/Client.hs | 18 |
1 files changed, 18 insertions, 0 deletions
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 |