Expose Lazy flag for xwayland create

swaywm · May 15, 2018 · 8d9fc39 · 8d9fc39
1 parent ccb4b04
commit 8d9fc39
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 5 deletions.
diff --git a/haskell-wayland b/haskell-wayland
diff --git a/src/Graphics/Wayland/WlRoots/XWayland.hsc b/src/Graphics/Wayland/WlRoots/XWayland.hsc
@@ -61,11 +61,11 @@ import Utility (textFromNull)
 
 data XWayland
 
-foreign import ccall unsafe "wlr_xwayland_create" c_xwayland_create :: Ptr DisplayServer -> Ptr WlrCompositor -> IO (Ptr XWayland)
+foreign import ccall unsafe "wlr_xwayland_create" c_xwayland_create :: Ptr DisplayServer -> Ptr WlrCompositor -> Bool -> IO (Ptr XWayland)
 
-xwaylandCreate :: DisplayServer -> Ptr WlrCompositor -> IO (Ptr XWayland)
-xwaylandCreate (DisplayServer ptr) comp =
-    throwErrnoIfNull "xwaylandCreate" $ c_xwayland_create ptr comp
+xwaylandCreate :: DisplayServer -> Ptr WlrCompositor -> Bool -> IO (Ptr XWayland)
+xwaylandCreate (DisplayServer ptr) comp lazy =
+    throwErrnoIfNull "xwaylandCreate" $ c_xwayland_create ptr comp lazy
 
 foreign import ccall "wlr_xwayland_destroy" c_xwayland_destroy :: Ptr XWayland -> IO ()