diff --git a/Handler/AdminMediumSettings.hs b/Handler/AdminMediumSettings.hs index 8b3f990..dbfa7e5 100644 --- a/Handler/AdminMediumSettings.hs +++ b/Handler/AdminMediumSettings.hs @@ -100,7 +100,7 @@ getAdminMediumDeleteR mediumId = do runDB $ delete mediumId -- delete files liftIO $ removeFile (normalise $ tail $ mediumPath medium) - liftIO $ removeFile (normalise $ tail $ mediumPath medium) + liftIO $ removeFile (normalise $ tail $ mediumThumb medium) -- outro setMessage "Medium deleted successfully" redirect $ AdminR