Fix xalign and yalign properties of some widgets not being Int …

…but instead `Number`
postsolar · Feb 26, 2024 · 1d5e004 · 1d5e004
1 parent 072d786
commit 1d5e004
Show file tree

Hide file tree

Showing 4 changed files with 7 additions and 7 deletions.
diff --git a/src/Gtk/Button.purs b/src/Gtk/Button.purs
@@ -13,8 +13,8 @@ type GtkButtonProps r =
   -- , relief ∷ ValueOrBinding Gtk.ReliefStyle
   , useStock ∷ ValueOrBinding Boolean
   , useUnderline ∷ ValueOrBinding Boolean
-  , xalign ∷ ValueOrBinding Number
-  , yalign ∷ ValueOrBinding Number
+  , xalign ∷ ValueOrBinding Int
+  , yalign ∷ ValueOrBinding Int
   | r
   )
 
diff --git a/src/Gtk/Entry.purs b/src/Gtk/Entry.purs
@@ -53,7 +53,7 @@ type GtkEntryProps r =
   , truncateMultiline ∷ Boolean
   , visibility ∷ Boolean
   , widthChars ∷ Number
-  , xalign ∷ Number
+  , xalign ∷ Int
   | r
   )
 
diff --git a/src/Gtk/Label.purs b/src/Gtk/Label.purs
@@ -26,8 +26,8 @@ type GtkLabelProps r =
   , widthChars ∷ ValueOrBinding Number
   , wrap ∷ ValueOrBinding Boolean
   -- , wrapMode ∷ ValueOrBinding Pango.WrapMode
-  , xalign ∷ ValueOrBinding Number
-  , yalign ∷ ValueOrBinding Number
+  , xalign ∷ ValueOrBinding Int
+  , yalign ∷ ValueOrBinding Int
   | r
   )
 
diff --git a/src/Gtk/Misc.purs b/src/Gtk/Misc.purs
@@ -3,9 +3,9 @@ module Gtk.Misc where
 import AGS.Binding (ValueOrBinding)
 
 type GtkMiscProps r =
-  ( xalign ∷ ValueOrBinding Number
+  ( xalign ∷ ValueOrBinding Int
   , xpad ∷ ValueOrBinding Number
-  , yalign ∷ ValueOrBinding Number
+  , yalign ∷ ValueOrBinding Int
   , ypad ∷ ValueOrBinding Number
   | r
   )