getFileNewR :: AssetId -> Handler RepHtml
getFileNewR aid = do
  _asset <- runDB $ get404 aid
  (formWidget, formEnctype) <- generateFormPost fileUploadForm
  defaultLayout $ do
       setTitle "Upload new file."
       $(widgetFile "file/new")
getFileNewR :: AssetId -> Handler RepHtml
getFileNewR aid = do
  _asset <- runDB $ get404 aid
  (formWidget, formEnctype) <- generateFormPost fileUploadForm
  defaultLayout $ do
       setTitle "Upload new file."
       $(widgetFile "file/new")
getFileNewR aid = do
  _asset <- runDB $ get404 aid
  (formWidget, formEnctype) <- generateFormPost fileUploadForm
  defaultLayout $ do
       setTitle "Upload new file."
       $(widgetFile "file/new")