Make widgetColumn function slightly more flexible.

Dretch · Jul 27, 2024 · 0d8ec62 · 0d8ec62
1 parent 771f062
commit 0d8ec62
Show file tree

Hide file tree

Showing 4 changed files with 9 additions and 5 deletions.
diff --git a/ChangeLog.md b/ChangeLog.md
@@ -1,3 +1,7 @@
+## 0.3.2.0
+### Changed
+- Make widgetColumn function slightly more flexible.
+
 ## 0.3.1.2
 ### Changed
 - Mark as compatible with Monomer 1.6.

diff --git a/monomer-hagrid.cabal b/monomer-hagrid.cabal
@@ -5,7 +5,7 @@ cabal-version: 2.0
 -- see: https://github.com/sol/hpack
 
 name:           monomer-hagrid
-version:        0.3.1.2
+version:        0.3.2.0
 synopsis:       A datagrid widget for the Monomer library.
 description:    A configurable Monomer widget that shows a scrollable grid of data.
 category:       GUI

diff --git a/package.yaml b/package.yaml
@@ -1,5 +1,5 @@
 name:                monomer-hagrid
-version:             0.3.1.2
+version:             0.3.2.0
 synopsis:            A datagrid widget for the Monomer library.
 description:         A configurable Monomer widget that shows a scrollable grid of data.
 github:              Dretch/monomer-hagrid

diff --git a/src/Monomer/Hagrid.hs b/src/Monomer/Hagrid.hs
@@ -131,15 +131,15 @@ data ColumnWidget e a
     LabelWidget (Int -> a -> Text)
   | -- | Create a widget of arbitrary type. The function receives the original item
     -- index (i.e. not the index in the sorted list) and the item itself.
-    CustomWidget (forall s. (WidgetModel s) => Int -> a -> WidgetNode s e)
+    CustomWidget (forall s. WidgetModel s => Int -> a -> WidgetNode s e)
 
 -- | How to create the footer widget for a column.
 data ColumnFooterWidget e a
   = -- | No footer widget for this column.
     NoFooterWidget
   | -- | Create a footer widget. The function receives the items in their current sort
     -- order, and also along with each item it's original (unsorted) index.
-    CustomFooterWidget (forall s. (WidgetModel s) => Seq (ItemWithIndex a) -> WidgetNode s e)
+    CustomFooterWidget (forall s. WidgetModel s => Seq (ItemWithIndex a) -> WidgetNode s e)
 
 -- | How to align the widget within each cell of a column.
 data ColumnAlign
@@ -1031,7 +1031,7 @@ widgetColumn ::
   Text ->
   -- | Called with the (original, not sorted) index and the item for each row to get the widget to
   -- display for that row.
-  (forall s. Int -> a -> WidgetNode s e) ->
+  (forall s. WidgetModel s => Int -> a -> WidgetNode s e) ->
   Column e a
 widgetColumn name get = defaultColumn name (CustomWidget get)