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