diff options
| author | stuebinm | 2022-04-06 18:05:51 +0200 |
|---|---|---|
| committer | stuebinm | 2022-04-06 18:05:51 +0200 |
| commit | 73e7a69828597927f35e080d379278a847bed208 (patch) | |
| tree | 0bc66a30b2514c0f6150ce7323be5397d5e111f2 | |
| parent | 92945f9e855284534e103e4f29e069101033a62c (diff) | |
server: expose jitsi rooms in maps list endpoint
| -rw-r--r-- | server/Handlers.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/server/Handlers.hs b/server/Handlers.hs index 39995dc..e45b210 100644 --- a/server/Handlers.hs +++ b/server/Handlers.hs @@ -17,7 +17,7 @@ module Handlers ( import Universum import CheckDir (DirResult (dirresultMaps)) -import CheckMap (MapResult (MapResult, mapresultBadges)) +import CheckMap (MapResult (..)) import Control.Concurrent.STM (TQueue, dupTChan, readTChan, writeTQueue) import Data.Aeson (ToJSON (..), (.=)) @@ -60,6 +60,7 @@ instance ToJSON MapService where mapInfo rev mappath MapResult { .. } = A.object [ "badges" .= mapresultBadges -- TODO: type-safe url library for adding the slash? + , "jitsi" .= mapresultJitsis , "url" .= (orgUrl org <> adjustedWebPath rev org <> "/" <> toText mappath) ] |