diff --git a/ChangeLog.md b/ChangeLog.md index 659c7a9..e02a8c3 100644 --- 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 index cb1f3d0..8864e8a 100644 --- 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 index d0e4f48..67d77eb 100644 --- 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 index 35bf98d..4585638 100644 --- a/src/Monomer/Hagrid.hs +++ b/src/Monomer/Hagrid.hs @@ -131,7 +131,7 @@ 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 @@ -139,7 +139,7 @@ data ColumnFooterWidget e a 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)