From 0012e2a19c5e26389820bee0ea528518a3ab78d3 Mon Sep 17 00:00:00 2001 From: Steffen Jost Date: Tue, 14 May 2019 12:31:15 +0200 Subject: [PATCH] No header for simple select box. Fixes #363 --- src/Handler/Utils/Table/Pagination.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/Handler/Utils/Table/Pagination.hs b/src/Handler/Utils/Table/Pagination.hs index 88e08be1f..15a2952f5 100644 --- a/src/Handler/Utils/Table/Pagination.hs +++ b/src/Handler/Utils/Table/Pagination.hs @@ -962,7 +962,8 @@ dbSelect :: forall x h r i a. (Headedness h, Ord i, PathPiece i, Monoid' x) -> Setter' a Bool -> (DBRow r -> MForm (HandlerT UniWorX IO) i) -> Colonnade h (DBRow r) (DBCell (MForm (HandlerT UniWorX IO)) x) -dbSelect resLens selLens genIndex = Colonnade.singleton (headednessPure $ i18nCell MsgSelectColumn) $ formCell resLens genIndex genForm +-- dbSelect resLens selLens genIndex = Colonnade.singleton (headednessPure $ i18nCell MsgSelectColumn) $ formCell resLens genIndex genForm +dbSelect resLens selLens genIndex = Colonnade.singleton (headednessPure $ mempty) $ formCell resLens genIndex genForm where genForm _ mkUnique = do (selResult, selWidget) <- mreq checkBoxField (fsUniq mkUnique "select") (Just False)