getPost pid = do
    r <- fmap (^. responseBody) . get . url $ posts pid

    let mpost = do
            json <- decode r

            flip parseMaybe json $ \obj -> do
                (raw :: Text) <- obj .: "raw"

                return raw

        post = maybe mempty id mpost

    return post
getPost pid = do
    r <- fmap (^. responseBody) . get . url $ posts pid

    let mpost = do
            json <- decode r

            flip parseMaybe json $ \obj -> do
                (raw :: Text) <- obj .: "raw"

                return raw

        post = maybe mempty id mpost

    return post
getPost pid = do
    r <- fmap (^. responseBody) . get . url $ posts pid

    let mpost = do
            json <- decode r

            flip parseMaybe json $ \obj -> do
                (raw :: Text) <- obj .: "raw"

                return raw

        post = maybe mempty id mpost

    return post