nek0/eidolon
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

fix

Browse source
This commit is contained in:
nek0 2017-03-09 22:56:37 +01:00
parent 02d7b4f4fc
commit d06b204fb0
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
Handler/Commons.hs
View file

@ -211,8 +211,10 @@ handleUpload len albumId prefix time owner desc tags licence spec (index, file)
case spec of case spec of
NewFile -> NewFile ->
insertMedium medium albumId insertMedium medium albumId
Replace _ -> Replace mId ->
return () runDB $ update mId
[ MediumPath =. ('/' : path)
]
return Nothing return Nothing
else do else do
liftIO $ removeFile (FP.normalise path) liftIO $ removeFile (FP.normalise path)