server: expose jitsi rooms in maps list endpoint

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) ]