From 4d51231141d9f35074660e101c478b664b96683d Mon Sep 17 00:00:00 2001
From: Hannes Schulze <haschu0103@outlook.de>
Date: Thu, 8 Aug 2024 00:43:43 +0200
Subject: wip refactoring

---
 wayland/Wayland/Server/System.hsc | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'wayland/Wayland/Server/System.hsc')

diff --git a/wayland/Wayland/Server/System.hsc b/wayland/Wayland/Server/System.hsc
index b01611e..8340efa 100644
--- a/wayland/Wayland/Server/System.hsc
+++ b/wayland/Wayland/Server/System.hsc
@@ -114,6 +114,9 @@ instance Storable WLFixed where
   peek      p             = WLFixed <$> peek (castPtr p)
   poke      p (WLFixed v) = poke (castPtr p) v
 
+wlFixedToFloat :: WLFixed -> Float
+wlFixedToFloat (WLFixed v) = (fromIntegral v) / 256
+
 -- ** wl_array
 
 data WLArray
-- 
cgit v1.3.1