From 3eae057004597db4d41cdcc3770d5c7e22c50d15 Mon Sep 17 00:00:00 2001
From: LLLL Colonq <llll@colonq>
Date: Tue, 24 Feb 2026 14:25:57 -0500
Subject: Update

---
 fig-web/src/Fig/Web/Module/Bells.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'fig-web/src/Fig/Web/Module/Bells.hs')

diff --git a/fig-web/src/Fig/Web/Module/Bells.hs b/fig-web/src/Fig/Web/Module/Bells.hs
index 1ae6dce..f4f8112 100644
--- a/fig-web/src/Fig/Web/Module/Bells.hs
+++ b/fig-web/src/Fig/Web/Module/Bells.hs
@@ -12,14 +12,14 @@ import qualified Fig.Web.DB as DB
 public :: PublicModule
 public a = do
   onGet "/api/songs" do
-    DB.hvals a.db "songnames" >>= \case
+    DB.run a.db (DB.hvals "songnames") >>= \case
       Nothing -> do
         status status404
         respondText "no sounds found :("
       Just songs -> respondText . pretty . SExprList @Void $ SExprString . decodeUtf8 <$> songs
   onGet "/api/song/:hash" do
     hash <- pathParam "hash"
-    DB.hget a.db "songnotes" hash >>= \case
+    DB.run a.db (DB.hget "songnotes" hash) >>= \case
       Nothing -> do
         status status404
         respondText "song not found"
-- 
cgit v1.2.3