Start working on the (versioned) OPDS catalog

src/Database/Channel.hs

@@ -4,7 +4,8 @@ module Database.Channel
   ( userChannels
   , insertChannel
   , booksChannels
-  , Channel(..) )
+  , Channel(..)
+  , ChannelID )
   where
 
 import ClassyPrelude

src/Database/Schema.hs

@@ -44,7 +44,7 @@ newtype UserID = UserID {unUserID :: Int} deriving (Show)
 
 newtype BookID = BookID {unBookID :: Int} deriving (Show, ToJSON, FromJSON, FromHttpApiData, Eq, Ord)
 
-newtype ChannelID = ChannelID {unChannelID :: Int} deriving (Show)
+newtype ChannelID = ChannelID {unChannelID :: Int} deriving (Show, ToHttpApiData, FromHttpApiData)
 
 newtype TagID = TagID {unTagID :: Int} deriving (Show)