getTutorialRawR :: UserId -> BlobSHA -> Handler Text
getTutorialRawR uid blob = do
    eres <- getFrozenTutorialBlob uid blob
    case eres of
        Left _ -> notFound
        Right pt -> return $ unTutorialContent $ publishedTutorialContent pt
getTutorialRawR :: UserId -> BlobSHA -> Handler Text
getTutorialRawR uid blob = do
    eres <- getFrozenTutorialBlob uid blob
    case eres of
        Left _ -> notFound
        Right pt -> return $ unTutorialContent $ publishedTutorialContent pt
getTutorialRawR uid blob = do
    eres <- getFrozenTutorialBlob uid blob
    case eres of
        Left _ -> notFound
        Right pt -> return $ unTutorialContent $ publishedTutorialContent pt