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

added: addContentDispositionFileName: document comment

Browse Source 
I wrote battle of multibyte from code review.
This commit is contained in:
ncaq 2018-04-17 18:41:23 +09:00
parent 2c1a6c609f
commit eb220c936a
1 changed files with 14 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -783,11 +783,21 @@ setLanguage = setSession langKey
-- | Set attachment file name. -- | Set attachment file name.
-- --
-- allow UTF-8 character. -- Allows Unicode characters by encoding to UTF-8.
-- Some modurn browser parse UTF-8 characters with out encoding setting.
-- But, for example IE9 can't parse UTF-8 characters.
-- This function use
-- <https://tools.ietf.org/html/rfc6266 RFC 6266>(<https://tools.ietf.org/html/rfc5987 RFC 5987>)
addContentDispositionFileName :: MonadHandler m => T.Text -> m () addContentDispositionFileName :: MonadHandler m => T.Text -> m ()
addContentDispositionFileName name addContentDispositionFileName fileName
= addHeader "Content-Disposition" $ = addHeader "Content-Disposition" $ rfc6266Utf8FileName fileName
"attachment; filename*=UTF-8''" `mappend` decodeUtf8 (H.urlEncode True (encodeUtf8 name))
-- | <https://tools.ietf.org/html/rfc6266 RFC 6266> Unicode attachment filename.
--
-- > rfc6266Utf8FileName (Data.Text.pack "€")
-- "attachment; filename*=UTF-8''%E2%82%AC"
rfc6266Utf8FileName :: T.Text -> T.Text
rfc6266Utf8FileName fileName = "attachment; filename*=UTF-8''" `mappend` decodeUtf8 (H.urlEncode True (encodeUtf8 fileName))
-- | Set an arbitrary response header. -- | Set an arbitrary response header.
-- --