diff options
Diffstat (limited to 'fig-web/src/Fig/Web/Module/Bells.hs')
| -rw-r--r-- | fig-web/src/Fig/Web/Module/Bells.hs | 4 |
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" |