Merge pull request #4431 from unisonweb/support-controls-in-video

Add support for the `controls` attribute in Video
unisonweb · Nov 27, 2023 · 16d88b2 · 16d88b2
2 parents 79eeee7 + 1afc588
commit 16d88b2
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/unison-share-api/src/Unison/Server/Doc/AsHtml.hs b/unison-share-api/src/Unison/Server/Doc/AsHtml.hs
@@ -468,6 +468,7 @@ toHtml docNamesByRef document =
                           go ("poster", p) = [LB.makeAttribute "poster" p]
                           go ("autoplay", "true") = [LB.makeAttribute "autoplay" "autoplay"]
                           go ("loop", "true") = [loop_ "loop"]
+                          go ("controls", "true") = [loop_ "controls"]
                           go ("muted", "true") = [LB.makeAttribute "muted" "muted"]
                           go _ = []
                    in pure $ video_ attrs' $ mapM_ source sources