blogPostToDocument :: BlogPost -> Document
blogPostToDocument b = [ "blogPostDateTime" := String (blogPostDateTime b)
                       , "blogPostName" := String (blogPostName b)
                       , "blogPostBody" := String (blogPostBody b)
                       , "blogPostImageSrc" := String (fst (blogPostImage b))
                       , "blogPostImageAlt" := String (snd (blogPostImage b))
                       ] ++ blogPostLinksToDocument (blogPostLinks b) 0
blogPostToDocument :: BlogPost -> Document
blogPostToDocument b = [ "blogPostDateTime" := String (blogPostDateTime b)
                       , "blogPostName" := String (blogPostName b)
                       , "blogPostBody" := String (blogPostBody b)
                       , "blogPostImageSrc" := String (fst (blogPostImage b))
                       , "blogPostImageAlt" := String (snd (blogPostImage b))
                       ] ++ blogPostLinksToDocument (blogPostLinks b) 0
blogPostToDocument b = [ "blogPostDateTime" := String (blogPostDateTime b)
                       , "blogPostName" := String (blogPostName b)
                       , "blogPostBody" := String (blogPostBody b)
                       , "blogPostImageSrc" := String (fst (blogPostImage b))
                       , "blogPostImageAlt" := String (snd (blogPostImage b))
                       ] ++ blogPostLinksToDocument (blogPostLinks b) 0