, colmd2 (Just "Recurrence")

              , colmd3 (Just "Recurrence")

          [ P.classes (ClassName <$> [ "row", "pt-3" ]) ]

          [ P.classes (ClassName <$> [ "row", "border-top" ]) ]

          , colmd2 (Just (recurrenceStr b.recurrence))

          , colmd3 (Just (recurrenceStr b.recurrence))

              [ P.classes [ C.btn, C.btnPrimary ]

              [ P.classes [ C.btn, C.btnPrimary, C.btnSmall ]

  colmd2 xs = HH.div [ P.classes (ClassName <$> [ "col-md-2" ]) ] (U.fromMaybe $ HH.text <$> xs)

  colmd2 xs = HH.div [ P.classes (ClassName <$> [ "col-md-2"]) ] (U.fromMaybe $ HH.text <$> xs)
  colmd3 :: forall i w. Maybe String -> HH.HTML i  w
  colmd3 xs = HH.div [ P.classes (ClassName <$> [ "col-md-3" ]) ] (U.fromMaybe $ HH.text <$> xs)

btnSmall :: ClassName
btnSmall = ClassName "btn-sm"