add Css classes to spans and divs for more control

fmidue · Nov 29, 2024 · 254de24 · 254de24
1 parent bd4153e
commit 254de24
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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}
     |]