diff options
Diffstat (limited to 'fig-web/src/Fig/Web.hs')
| -rw-r--r-- | fig-web/src/Fig/Web.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/fig-web/src/Fig/Web.hs b/fig-web/src/Fig/Web.hs index e200cf6..b08a032 100644 --- a/fig-web/src/Fig/Web.hs +++ b/fig-web/src/Fig/Web.hs @@ -31,6 +31,7 @@ import Fig.Web.Auth import Fig.Web.State import qualified Fig.Web.DB as DB import qualified Fig.Web.LDAP as LDAP +import qualified Fig.Web.Exchange as Exchange data LiveEvent = LiveEventOnline !(Set.Set Text) @@ -188,6 +189,9 @@ 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/exchange" do + listings <- Exchange.getOrders db + Sc.json listings websocket "/api/circle/events" \conn -> do c <- Chan.dupChan liveEvents forever do |