fixed bug with shared albums direct upload
This commit is contained in:
parent
6412a87b2b
commit
64cef1f95e
1 changed files with 3 additions and 1 deletions
|
@ -130,7 +130,9 @@ postDirectUploadR albumId = do
|
||||||
fil <- return $ tempMediumFile temp
|
fil <- return $ tempMediumFile temp
|
||||||
case (fileContentType fil) `elem` acceptedTypes of
|
case (fileContentType fil) `elem` acceptedTypes of
|
||||||
True -> do
|
True -> do
|
||||||
path <- writeOnDrive fil userId albumId
|
albRef <- runDB $ getJust (tempMediumAlbum temp)
|
||||||
|
ownerId <- return $ albumOwner albRef
|
||||||
|
path <- writeOnDrive fil ownerId albumId
|
||||||
thumbPath <- generateThumb path ownerId albumId
|
thumbPath <- generateThumb path ownerId albumId
|
||||||
medium <- return $ Medium
|
medium <- return $ Medium
|
||||||
(tempMediumTitle temp)
|
(tempMediumTitle temp)
|
||||||
|
|
Loading…
Add table
Reference in a new issue