From 7c2844807f217b675b1730b128a3a418caee92d1 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Wed, 3 Jul 2019 15:29:46 +0200 Subject: [PATCH] fix(massinput): properly render massInputList --- src/Audit/Types.hs | 2 +- templates/widgets/massinput/list/layout.hamlet | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/src/Audit/Types.hs b/src/Audit/Types.hs index 8c8508fac..64d1ff0d3 100644 --- a/src/Audit/Types.hs +++ b/src/Audit/Types.hs @@ -13,7 +13,7 @@ import Utils.PathPiece data Transaction - = TransactionTermEdit { transactionTerm :: TermId } + = TransactionTermEdit { transactionTerm :: Key Term } deriving (Eq, Ord, Read, Show, Generic, Typeable) deriveJSON defaultOptions diff --git a/templates/widgets/massinput/list/layout.hamlet b/templates/widgets/massinput/list/layout.hamlet index 0af005b4e..63d64a53a 100644 --- a/templates/widgets/massinput/list/layout.hamlet +++ b/templates/widgets/massinput/list/layout.hamlet @@ -1,8 +1,8 @@ $newline never - - $forall coord <- review liveCoords lLength + $forall coord <- review liveCoords lLength +
^{cellWdgts ! coord}