diff --git a/server/Handlers.hs b/server/Handlers.hs index 39995dcca8aa3fd259c3e7432a4526742a106a06..e45b210f3ffa36f83dde4d36e225ac824ef8b5fe 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) ]