From 254de24d2557869ea6dbb9d745885dadcf77376d Mon Sep 17 00:00:00 2001
From: patritzenfeld <patrick.ritzenfeld@uni-due.de>
Date: Fri, 29 Nov 2024 11:51:26 +0100
Subject: [PATCH] add Css classes to spans and divs for more control

---
 flex-tasks/src/FlexTask/Widgets.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/flex-tasks/src/FlexTask/Widgets.hs b/flex-tasks/src/FlexTask/Widgets.hs
index 473e47b..7f9d2ed 100644
--- a/flex-tasks/src/FlexTask/Widgets.hs
+++ b/flex-tasks/src/FlexTask/Widgets.hs
@@ -35,7 +35,7 @@ renderForm newId aformStub label =
 $newline never
 \#{fragment}
 $forall view <- views
-    <span :fvRequired view:.required :not $ fvRequired view:.optional>
+    <span :fvRequired view:.required :not $ fvRequired view:.optional .flex-form-span>
         <label for=#{fvId view}>#{fvLabel view}
         $maybe tt <- fvTooltip view
             <div .tooltip>#{tt}
@@ -55,7 +55,7 @@ joinRenders = foldr (joinOuter . joinInner) zero
     joinOuter x y = applyToWidget insertDiv x $$> y
     insertDiv w = [whamlet|
       $newline never
-      <div>
+      <div .flex-form-div>
         ^{w}
     |]