server: fix map paths in api

1 files changed, 3 insertions, 3 deletions

diff --git a/server/Handlers.hs b/server/Handlers.hs
index d42e74d..39995dc 100644
--- a/server/Handlers.hs
+++ b/server/Handlers.hs
@@ -31,8 +31,8 @@ import           Network.WebSockets     (PendingConnection, acceptRequest,
 import           Servant                (Handler, err404, throwError)
 import           Server                 (JobStatus (..), Org (orgUrl),
                                          RemoteRef (reponame), ServerState,
-                                         Sha1, adjustedPath, getJobStatus,
-                                         unState)
+                                         Sha1, getJobStatus,
+                                         unState, adjustedWebPath)
 import           Worker                 (Job (Job))
 
 
@@ -60,7 +60,7 @@ instance ToJSON MapService where
         mapInfo rev mappath MapResult { .. } = A.object
                 [ "badges" .= mapresultBadges
                 -- TODO: type-safe url library for adding the slash?
-                , "url" .= (orgUrl org <> adjustedPath rev org <> "/" <> toText mappath) ]
+                , "url" .= (orgUrl org <> adjustedWebPath rev org <> "/" <> toText mappath) ]