haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

added: addContentDispositionFileName

Browse Source
This commit is contained in:
ncaq 2018-04-17 14:33:38 +09:00
parent 06e0ffb48b
commit 712e8bb475
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
yesod-core/Yesod/Core/Handler.hs
View File

@ -118,6 +118,7 @@ module Yesod.Core.Handler
, setHeader , setHeader
, replaceOrAddHeader , replaceOrAddHeader
, setLanguage , setLanguage
, addContentDispositionFileName
-- ** Content caching and expiration -- ** Content caching and expiration
, cacheSeconds , cacheSeconds
, neverExpires , neverExpires
@ -780,6 +781,14 @@ deleteCookie a = addHeaderInternal . DeleteCookie (encodeUtf8 a) . encodeUtf8
setLanguage :: MonadHandler m => Text -> m () setLanguage :: MonadHandler m => Text -> m ()
setLanguage = setSession langKey setLanguage = setSession langKey
-- | Set attachment file name.
--
-- allow UTF-8 character.
addContentDispositionFileName :: MonadHandler m => T.Text -> m ()
addContentDispositionFileName name
= addHeader "Content-Disposition" $
"attachment; filename*=UTF-8''" `mappend` decodeUtf8 (H.urlEncode True (encodeUtf8 name))
-- | Set an arbitrary response header. -- | Set an arbitrary response header.
-- --
-- Note that, while the data type used here is 'Text', you must provide only -- Note that, while the data type used here is 'Text', you must provide only