server: expose jitsi rooms in maps list endpoint

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