fix

2017-03-09 22:56:37 +01:00 · 2017-03-09 22:56:37 +01:00 · d06b204fb0
commit d06b204fb0
parent 02d7b4f4fc
1 changed files with 4 additions and 2 deletions
--- a/Handler/Commons.hs
+++ b/Handler/Commons.hs
@ -211,8 +211,10 @@ handleUpload len albumId prefix time owner desc tags licence spec (index, file)
          case spec of
            NewFile ->
              insertMedium medium albumId
-            Replace _ ->
-              return ()
+            Replace mId ->
+              runDB $ update mId
+                [ MediumPath =. ('/' : path)
+                ]
          return Nothing
        else do
          liftIO $ removeFile (FP.normalise path)