Update

1 files changed, 6 insertions, 3 deletions

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"