documentToBlogPost :: Document -> BlogPost
documentToBlogPost document =
  let bDateTime = "blogPostDateTime" `at` document
      bName = "blogPostName" `at` document
      bBody = "blogPostBody" `at` document
      bImageSrc = "blogPostImageSrc" `at` document
      bImageAlt = "blogPostImageAlt" `at` document
  in BlogPost bDateTime bName bBody (bImageSrc, bImageAlt) (documentToBlogPostLinks document 0)
documentToBlogPost :: Document -> BlogPost
documentToBlogPost document =
  let bDateTime = "blogPostDateTime" `at` document
      bName = "blogPostName" `at` document
      bBody = "blogPostBody" `at` document
      bImageSrc = "blogPostImageSrc" `at` document
      bImageAlt = "blogPostImageAlt" `at` document
  in BlogPost bDateTime bName bBody (bImageSrc, bImageAlt) (documentToBlogPostLinks document 0)
documentToBlogPost document =
  let bDateTime = "blogPostDateTime" `at` document
      bName = "blogPostName" `at` document
      bBody = "blogPostBody" `at` document
      bImageSrc = "blogPostImageSrc" `at` document
      bImageAlt = "blogPostImageAlt" `at` document
  in BlogPost bDateTime bName bBody (bImageSrc, bImageAlt) (documentToBlogPostLinks document 0)