diff options
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 |