Ids are Ints

positiondev · Apr 22, 2021 · 4c83854 · 4c83854
1 parent 8808e4c
commit 4c83854
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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 []