summaryrefslogtreecommitdiff
path: root/fig-web/src/Fig/Web/Module/HLS.hs
diff options
context:
space:
mode:
authorLLLL Colonq <llll@colonq>2025-11-11 22:44:02 -0500
committerLLLL Colonq <llll@colonq>2025-11-11 22:44:02 -0500
commitac3e8d22579f419806a0d4af1a91672886a323d9 (patch)
treedb989b2c85ee3a60a99143b3c62b50e9c5db7efa /fig-web/src/Fig/Web/Module/HLS.hs
parent9cf01f48f9bf9cb882c2849198d0118fad4b4bf6 (diff)
Tweak HLS
Diffstat (limited to 'fig-web/src/Fig/Web/Module/HLS.hs')
-rw-r--r--fig-web/src/Fig/Web/Module/HLS.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/fig-web/src/Fig/Web/Module/HLS.hs b/fig-web/src/Fig/Web/Module/HLS.hs
index 306be06..0eb479f 100644
--- a/fig-web/src/Fig/Web/Module/HLS.hs
+++ b/fig-web/src/Fig/Web/Module/HLS.hs
@@ -21,10 +21,10 @@ public a = do
respondText $ mconcat
[ "#EXTM3U\n"
, "#EXT-X-VERSION: 4\n"
- , "#EXT-X-TARGETDURATION:5\n"
+ , "#EXT-X-TARGETDURATION:10\n"
, "#EXT-X-MEDIA-SEQUENCE:", tshow startingSeq, "\n"
, mconcat $ reverse [0,1..len] <&> \idx -> mconcat
- [ "#EXTINF:3.0,\n"
+ [ "#EXTINF:4.8,\n"
, "http://localhost:8080/api/hls/", tshow idx, "/sample.aac\n"
]
]