From 3f1b2d35889181f1f9589fe46485da5b2a991848 Mon Sep 17 00:00:00 2001
From: Mats Rauhala <mats.rauhala@iki.fi>
Date: Tue, 28 Aug 2018 22:38:57 +0300
Subject: [PATCH] wip

---
 src/API/Catalogue.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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