From ed2f12a5115ff63247025c6f0c10c5285cf337e1 Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Mon, 21 Oct 2019 11:11:35 +0200
Subject: Reorder more combinator arguments to ease binding

---
 src/Gtk/Widgets.icl | 14 ++++++++------
 1 file changed, 8 insertions(+), 6 deletions(-)

(limited to 'src/Gtk/Widgets.icl')

diff --git a/src/Gtk/Widgets.icl b/src/Gtk/Widgets.icl
index 1ea63df..2e7c1de 100644
--- a/src/Gtk/Widgets.icl
+++ b/src/Gtk/Widgets.icl
@@ -149,13 +149,15 @@ newPaned orientation handle_width =
 	toState ('I'.gtk_paned_set_wide_handle paned handle_width=:WideHandle) >>|
 	show paned
 
-packPane1 :: !w !GtkPaned !GtkResize !GtkShrink -> GtkM () | gtkWidget w
-packPane1 widget paned resize shrink =
-	toState ('I'.gtk_paned_pack1 paned (gtkWidget widget) resize=:Resize shrink=:Shrink)
+packPane1 :: !GtkPaned !GtkResize !GtkShrink !w -> GtkM w | gtkWidget w
+packPane1 paned resize shrink widget =
+	toState ('I'.gtk_paned_pack1 paned (gtkWidget widget) resize=:Resize shrink=:Shrink) >>|
+	pure widget
 
-packPane2 :: !w !GtkPaned !GtkResize !GtkShrink -> GtkM () | gtkWidget w
-packPane2 widget paned resize shrink =
-	toState ('I'.gtk_paned_pack2 paned (gtkWidget widget) resize=:Resize shrink=:Shrink)
+packPane2 :: !GtkPaned !GtkResize !GtkShrink !w -> GtkM w | gtkWidget w
+packPane2 paned resize shrink widget =
+	toState ('I'.gtk_paned_pack2 paned (gtkWidget widget) resize=:Resize shrink=:Shrink) >>|
+	pure widget
 
 :: GtkScrolledWindow :== Pointer
 
-- 
cgit v1.2.3