blogPostLinksToDocument (l:ls) i = [ T.pack ("blogPostLinkHref" ++ show i) := String (fst l)
                                   , T.pack ("blogPostLinkText" ++ show i) := String (snd l)
                                   ] ++ blogPostLinksToDocument ls (i+1)
blogPostLinksToDocument (l:ls) i = [ T.pack ("blogPostLinkHref" ++ show i) := String (fst l)
                                   , T.pack ("blogPostLinkText" ++ show i) := String (snd l)
                                   ] ++ blogPostLinksToDocument ls (i+1)
blogPostLinksToDocument (l:ls) i = [ T.pack ("blogPostLinkHref" ++ show i) := String (fst l)
                                   , T.pack ("blogPostLinkText" ++ show i) := String (snd l)
                                   ] ++ blogPostLinksToDocument ls (i+1)