summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--server/Handlers.hs3
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) ]