diff options
Diffstat (limited to 'fig-web/src/Fig')
| -rw-r--r-- | fig-web/src/Fig/Web.hs | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/fig-web/src/Fig/Web.hs b/fig-web/src/Fig/Web.hs index b08a032..8444f08 100644 --- a/fig-web/src/Fig/Web.hs +++ b/fig-web/src/Fig/Web.hs @@ -189,6 +189,12 @@ app cfg cmds liveEvents currentlyLive = do Sc.get "/api/circle" do live <- liftIO $ MVar.readMVar currentlyLive Sc.text . Text.L.fromStrict . pretty . SExprList @Void $ SExprString <$> Set.toList live + Sc.get "/api/shader" do + DB.get db "shader" >>= \case + Nothing -> do + Sc.status status404 + Sc.text "no shader present" + Just sh -> Sc.text . Text.L.fromStrict $ decodeUtf8 sh Sc.get "/api/exchange" do listings <- Exchange.getOrders db Sc.json listings |