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

Removed call to buggy encodeUtf8

Browse Source
This commit is contained in:
Snoyman 2010-03-10 10:17:10 -08:00
parent 4587112686
commit 6f88e0ff76
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Yesod/Response.hs
View File

@ -60,7 +60,6 @@ import qualified Data.ByteString.Lazy as L
import Data.Text.Lazy (Text) import Data.Text.Lazy (Text)
import qualified Data.Text as T import qualified Data.Text as T
import Data.Object.Json import Data.Object.Json
import qualified Data.Text.Lazy.Encoding as DTLE
import Web.Encodings (formatW3) import Web.Encodings (formatW3)
import qualified Network.Wai as W import qualified Network.Wai as W
@ -106,7 +105,7 @@ type ChooseRep = [ContentType] -> IO (ContentType, Content)
-- | It would be nice to simplify 'Content' to the point where this is -- | It would be nice to simplify 'Content' to the point where this is
-- unnecesary. -- unnecesary.
ioTextToContent :: IO Text -> Content ioTextToContent :: IO Text -> Content
ioTextToContent = swapEnum . WE.fromLBS' . fmap DTLE.encodeUtf8 ioTextToContent = swapEnum . WE.fromLBS' . fmap cs
swapEnum :: W.Enumerator -> Content swapEnum :: W.Enumerator -> Content
swapEnum (W.Enumerator e) = ContentEnum e swapEnum (W.Enumerator e) = ContentEnum e