From 6a02f3d6086507b42b92663bce2992fbe74968fb Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Wed, 30 Oct 2019 16:43:02 +0100
Subject: Export all derived strictness

---
 src/Gtk/Widgets.icl | 3 +++
 1 file changed, 3 insertions(+)

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

diff --git a/src/Gtk/Widgets.icl b/src/Gtk/Widgets.icl
index db69b81..9573966 100644
--- a/src/Gtk/Widgets.icl
+++ b/src/Gtk/Widgets.icl
@@ -355,6 +355,7 @@ newScrolledWindow =
 
 instance tune GtkScrolledWindow (GtkScrollbarPolicy, GtkScrollbarPolicy)
 where
+	tune :: !(!GtkScrollbarPolicy, !GtkScrollbarPolicy) !GtkScrolledWindow -> GtkM GtkScrolledWindow
 	tune (hp,vp) window=:(GtkScrolledWindow sw) =
 		toState (gtk_scrolled_window_set_policy sw (toInt hp) (toInt vp)) >>|
 		pure window
@@ -537,6 +538,7 @@ where
 
 instance tune w (GtkAlign,GtkAlign) | gtkWidget w
 where
+	tune :: !(!GtkAlign, !GtkAlign) !w -> GtkM w | gtkWidget w
 	tune (halign,valign) widget =
 		let (GtkWidget w) = gtkWidget widget in
 		toState (gtk_widget_set_halign w (toInt halign)) >>|
@@ -545,6 +547,7 @@ where
 
 instance tune w (GtkExpand,GtkExpand) | gtkWidget w
 where
+	tune :: !(!GtkExpand, !GtkExpand) !w -> GtkM w | gtkWidget w
 	tune (hexpand,vexpand) widget =
 		let (GtkWidget w) = gtkWidget widget in
 		toState (gtk_widget_set_hexpand w hexpand=:Expand) >>|
-- 
cgit v1.2.3