From 4c838543c19a6bbf8cee48892b90fb8cecb28b63 Mon Sep 17 00:00:00 2001 From: Libby Horacek Date: Thu, 22 Apr 2021 09:32:55 -0400 Subject: [PATCH] Ids are Ints --- src/Web/Offset/Feed.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Web/Offset/Feed.hs b/src/Web/Offset/Feed.hs index d784f88..800a7dc 100644 --- a/src/Web/Offset/Feed.hs +++ b/src/Web/Offset/Feed.hs @@ -169,11 +169,11 @@ getAuthorViaReq wp v = getAuthorsViaReq :: Wordpress b -> Object -> IO [WPPerson] getAuthorsViaReq wp v = - do let mAuthorId = parseMaybe (\obj -> obj .: "authors") v :: Maybe [T.Text] + do let mAuthorId = parseMaybe (\obj -> obj .: "authors") v :: Maybe [Int] case mAuthorId of Nothing -> return [] Just authorIds -> - do let authList = map (\id -> ("include[]", id)) authorIds + do let authList = map (\id -> ("include[]", tshow id)) authorIds eRespError <- cachingGetRetry wp (EndpointKey ("wp/v2/authors") authList) case eRespError of Left _ -> return []