From 83e39cbe6c0dae4ca39e100e0504b7a35fcbf455 Mon Sep 17 00:00:00 2001
From: Mats Rauhala <mats.rauhala@iki.fi>
Date: Tue, 28 Aug 2018 22:37:44 +0300
Subject: [PATCH] Start implementing channel listing (#2)

---
 src/API/Catalogue.hs | 16 +++++++++++++++-
 1 file changed, 15 insertions(+), 1 deletion(-)

diff --git a/src/API/Catalogue.hs b/src/API/Catalogue.hs
index 37a813c..6058817 100644
--- a/src/API/Catalogue.hs
+++ b/src/API/Catalogue.hs
@@ -96,9 +96,23 @@ instance ToNode (Catalog 1) where
 
 class Monad m => VersionedCatalog m (v :: Nat) where
   getChannels :: SafeUser -> m (Catalog v)
+  getBooks :: Channel.ChannelID -> SafeUser -> m (Catalog v)
 
 instance VersionedCatalog AppM 1 where
   getChannels = getChannelsV1
+  getBooks = getBooksV1
+
+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)
+      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
+      pagination = Pagination Nothing Nothing
+  pure CatalogV1{..}
+
 
 getChannelsV1 :: SafeUser -> AppM (Catalog 1)
 getChannelsV1 SafeUser{username} = do
@@ -133,7 +147,7 @@ handler auth = catalogRoot :<|> catalogChannels
   where
     catalogChannels :: Channel.ChannelID -> AppM (Catalog v)
     -- Channel specific catalog returns tags inside the catalog
-    catalogChannels _ = throwM err403{errBody="Not implemented"}
+    catalogChannels identifier = flip requireLoggedIn auth (getBooks identifier)
     catalogRoot :: AppM (Catalog v)
     -- catalog root returns channels
     catalogRoot = flip requireLoggedIn auth getChannels