getFileDeleteR :: FileId ->  Handler RepHtml
getFileDeleteR fid = do
  file :: File <- runDB $ get404 fid
  (fwidget, enctype) <- generateFormPost fileDeleteForm
  defaultLayout $ do
      setTitle "Deleting a file."
      $(widgetFile "file/delete")

-- | delete file from db and disk.
getFileDeleteR :: FileId ->  Handler RepHtml
getFileDeleteR fid = do
  file :: File <- runDB $ get404 fid
  (fwidget, enctype) <- generateFormPost fileDeleteForm
  defaultLayout $ do
      setTitle "Deleting a file."
      $(widgetFile "file/delete")

-- | delete file from db and disk.
getFileDeleteR fid = do
  file :: File <- runDB $ get404 fid
  (fwidget, enctype) <- generateFormPost fileDeleteForm
  defaultLayout $ do
      setTitle "Deleting a file."
      $(widgetFile "file/delete")

-- | delete file from db and disk.