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/System.hsc | |
| parent | 5b086e236ab3903a717dfac115bebc6e5d006c07 (diff) | |
wip refactoring
Diffstat (limited to 'wayland/Wayland/Server/System.hsc')
| -rw-r--r-- | wayland/Wayland/Server/System.hsc | 3 |
1 files changed, 3 insertions, 0 deletions
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 |