Modify metadata

2018-08-08 22:21:15 +03:00
parent d5fb7da13f
commit 84a838e141
3 changed files with 32 additions and 2 deletions
--- a/src/API/Books.hs
+++ b/src/API/Books.hs
@ -64,7 +64,10 @@ postBookMetaHandler auth PostBook{..} = flip requireLoggedIn auth $ \SafeUser{us


 putBookMetaHandler :: AuthResult SafeUser -> BookID -> JsonBook -> AppM JsonBook
-putBookMetaHandler _ _ _ = throwM err403
+putBookMetaHandler auth bookId b@JsonBook{..}
+  | bookId == identifier = flip requireLoggedIn auth $ \SafeUser{username=owner} ->
+        maybe (throwM err403) (const (return b)) =<< runDB (updateBook UpdateBook{..})
+  | otherwise = throwM err403

 listBooksHandler :: AuthResult SafeUser -> AppM [JsonBook]
 listBooksHandler = requireLoggedIn $ \user -> do