percentCell :: MonadWidget t m => Dynamic t Double -> Dynamic t Text -> m ()
percentCell d txt = do
  elDynAttr "td" (positiveAttr <$> d) $ do
    dynText txt
  return ()
percentCell :: MonadWidget t m => Dynamic t Double -> Dynamic t Text -> m ()
percentCell d txt = do
  elDynAttr "td" (positiveAttr <$> d) $ do
    dynText txt
  return ()
percentCell d txt = do
  elDynAttr "td" (positiveAttr <$> d) $ do
    dynText txt
  return ()