getThread tid = do
    pids <- getPostIds tid

    V.forM pids getPost
getThread tid = do
    pids <- getPostIds tid

    V.forM pids getPost
getThread tid = do
    pids <- getPostIds tid

    V.forM pids getPost