Ids are Ints

positiondev · Apr 22, 2021 · 7ae9788 · 7ae9788
1 parent 8808e4c
commit 7ae9788
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Web/Offset/Feed.hs b/src/Web/Offset/Feed.hs
@@ -169,7 +169,7 @@ 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 ->