getFileGetR :: FileId -> Handler RepHtml
getFileGetR fid = do
  file <- runDB $ get404 fid
  redirect (FileGetNameR fid (fileOriginalName file))
getFileGetR :: FileId -> Handler RepHtml
getFileGetR fid = do
  file <- runDB $ get404 fid
  redirect (FileGetNameR fid (fileOriginalName file))
getFileGetR fid = do
  file <- runDB $ get404 fid
  redirect (FileGetNameR fid (fileOriginalName file))