diff options
| author | LLLL Colonq <llll@colonq> | 2026-02-24 14:25:57 -0500 |
|---|---|---|
| committer | LLLL Colonq <llll@colonq> | 2026-02-24 14:25:57 -0500 |
| commit | 3eae057004597db4d41cdcc3770d5c7e22c50d15 (patch) | |
| tree | 4997306631687de729ebae5cbf71765dc3c1df67 /fig-web/src/Fig/Web/Module/Gizmo.hs | |
| parent | 91e9ebf92981341668a0a289cf9710546420e993 (diff) | |
Update
Diffstat (limited to 'fig-web/src/Fig/Web/Module/Gizmo.hs')
| -rw-r--r-- | fig-web/src/Fig/Web/Module/Gizmo.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/fig-web/src/Fig/Web/Module/Gizmo.hs b/fig-web/src/Fig/Web/Module/Gizmo.hs index bca23d5..70078fb 100644 --- a/fig-web/src/Fig/Web/Module/Gizmo.hs +++ b/fig-web/src/Fig/Web/Module/Gizmo.hs @@ -20,13 +20,13 @@ public :: PublicModule public a = do onGet "/api/gizmo" do buf <- queryParam "buf" - DB.hget a.db "gizmos" buf >>= \case + DB.run a.db (DB.hget "gizmos" buf) >>= \case Nothing -> do status status404 respondText "gizmo does not exist" Just html -> respondHTMLText $ decodeUtf8 html onGet "/api/gizmo/list" do - gizmos <- maybe [] (fmap decodeUtf8) <$> DB.hkeys a.db "gizmos" + gizmos <- maybe [] (fmap decodeUtf8) <$> DB.run a.db (DB.hkeys "gizmos") respondText $ Text.unlines gizmos publicWebsockets :: PublicWebsockets |