convertAuthorsToLinks :: TagsReader
convertAuthorsToLinks = do
    tagsAndAuthors <- ask
    lift $ convertSpecificTagsToLinks tagsAndAuthors 
                                      (snd tagsAndAuthors) 
                                      "Все статьи автора"
    return ()
convertAuthorsToLinks = do
    tagsAndAuthors <- ask
    lift $ convertSpecificTagsToLinks tagsAndAuthors 
                                      (snd tagsAndAuthors) 
                                      "Все статьи автора"
    return ()