diff options
Diffstat (limited to 'fig-frontend/src/Fig/Frontend.hs')
| -rw-r--r-- | fig-frontend/src/Fig/Frontend.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/fig-frontend/src/Fig/Frontend.hs b/fig-frontend/src/Fig/Frontend.hs index 75fec53..4c32078 100644 --- a/fig-frontend/src/Fig/Frontend.hs +++ b/fig-frontend/src/Fig/Frontend.hs @@ -151,7 +151,7 @@ app cfg cmds liveEvents currentlyLive = do DB.sadd db ("pokeinbox:" <> target) [me] Sc.text "partial" Sc.get "/api/sentiment" do - s <- DB.get db "sentiment:green" >>= \case + s <- DB.get db "sentiment" >>= \case Nothing -> pure "0" Just x -> pure x Sc.text . Text.L.fromStrict . decodeUtf8 $ s |