deleteFile :: Entity File -> Handler ()
deleteFile (Entity fid file) = do
  -- delete from db
  runDB $ delete fid
  -- delete from disk
  liftIO (removeFile (filePath file))
deleteFile :: Entity File -> Handler ()
deleteFile (Entity fid file) = do
  -- delete from db
  runDB $ delete fid
  -- delete from disk
  liftIO (removeFile (filePath file))
deleteFile (Entity fid file) = do
  -- delete from db
  runDB $ delete fid
  -- delete from disk
  liftIO (removeFile (filePath file))