Update

1 files changed, 2 insertions, 2 deletions

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"