From 3eae057004597db4d41cdcc3770d5c7e22c50d15 Mon Sep 17 00:00:00 2001 From: LLLL Colonq Date: Tue, 24 Feb 2026 14:25:57 -0500 Subject: Update --- fig-web/src/Fig/Web/Module/HLS.hs | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) (limited to 'fig-web/src/Fig/Web/Module/HLS.hs') diff --git a/fig-web/src/Fig/Web/Module/HLS.hs b/fig-web/src/Fig/Web/Module/HLS.hs index 0eb479f..66242e5 100644 --- a/fig-web/src/Fig/Web/Module/HLS.hs +++ b/fig-web/src/Fig/Web/Module/HLS.hs @@ -13,8 +13,11 @@ import qualified Fig.Web.DB as DB public :: PublicModule public a = do onGet "/api/hls.m3u8" do - mseq :: Maybe Integer <- ((readMaybe . unpack . decodeUtf8)=<<) <$> DB.get a.db "hlssequence" - mlen <- DB.llen a.db "hlssamples" + (mseq, mlen) <- DB.run a.db do + mseq :: Maybe Integer <- ((readMaybe . unpack . decodeUtf8)=<<) + <$> DB.get "hlssequence" + mlen <- DB.llen "hlssamples" + pure (mseq, mlen) case (mseq, mlen) of (Just seq, Just len) -> do let startingSeq = seq - (len - 1) @@ -34,7 +37,7 @@ public a = do pure () onGet "/api/hls/:num/sample.aac" do num <- pathParam "num" - DB.lindex a.db "hlssamples" num >>= \case + DB.run a.db (DB.lindex "hlssamples" num) >>= \case Nothing -> do status status404 respondText "sample not found" -- cgit v1.2.3