getFileViewR :: FileId -> Handler RepHtml
getFileViewR fid = do
  linkUser <- mkDisplayUserWidget
  file <- runDB $ get404 fid
  defaultLayout $ do
       setTitle "File description."
       $(widgetFile "file/view")
  
-- download
getFileViewR :: FileId -> Handler RepHtml
getFileViewR fid = do
  linkUser <- mkDisplayUserWidget
  file <- runDB $ get404 fid
  defaultLayout $ do
       setTitle "File description."
       $(widgetFile "file/view")
  
-- download
getFileViewR fid = do
  linkUser <- mkDisplayUserWidget
  file <- runDB $ get404 fid
  defaultLayout $ do
       setTitle "File description."
       $(widgetFile "file/view")
  
-- download