diff --git a/src/API/Catalogue.hs b/src/API/Catalogue.hs index 6058817..244f6dc 100644 --- a/src/API/Catalogue.hs +++ b/src/API/Catalogue.hs @@ -105,8 +105,8 @@ instance VersionedCatalog AppM 1 where getBooksV1 :: Channel.ChannelID -> SafeUser -> AppM (Catalog 1) getBooksV1 identifier SafeUser{} = do updated <- liftIO getCurrentTime - let self = Rel ("/api/current" <> selfUrl) - start = Rel ("/api/current" <> startUrl) + let self = Rel ("/api/current/" <> selfUrl) + start = Rel ("/api/current/" <> startUrl) selfUrl = pack . uriPath . linkURI $ safeLink (Proxy @(BaseAPI 1)) (Proxy @(ChannelCatalog 1)) identifier startUrl = pack . uriPath . linkURI $ safeLink (Proxy @(BaseAPI 1)) (Proxy @(RootCatalog 1)) entries = mempty