on master help sign in
decodeUtf8 over unsafe unpack for feed templates
commit4566ee4a43d5656e7695d9da6dab97e843910a3e authorJasper Van der Jeugt <m@jaspervdj.be> dateSun 7 Jan 2018, 12:20 (9 years ago) parent526cd35
1 file changed+12−7
lib/Hakyll/Web/Feed.hs+12−7
lib/Hakyll/Web/Feed.hs+12−7
@@ -28,29 +28,34 @@ module Hakyll.Web.Feed
2828--------------------------------------------------------------------------------
2929import Hakyll.Core.Compiler
3030import Hakyll.Core.Item
31−import Hakyll.Core.Util.String (replaceAll)
31+import Hakyll.Core.Util.String (replaceAll)
3232import Hakyll.Web.Template
3333import Hakyll.Web.Template.Context
3434import Hakyll.Web.Template.List
3535
3636
3737--------------------------------------------------------------------------------
38−import Data.ByteString.Char8 (unpack)
39−import Data.FileEmbed (embedFile)
38+import Data.FileEmbed (embedFile)
39+import qualified Data.Text as T
40+import qualified Data.Text.Encoding as T
4041
4142
4243--------------------------------------------------------------------------------
4344rssTemplate :: String
44−rssTemplate = unpack $(embedFile "data/templates/rss.xml")
45+rssTemplate = T.unpack $
46+ T.decodeUtf8 $(embedFile "data/templates/rss.xml")
4547
4648rssItemTemplate :: String
47−rssItemTemplate = unpack $(embedFile "data/templates/rss-item.xml")
49+rssItemTemplate = T.unpack $
50+ T.decodeUtf8 $(embedFile "data/templates/rss-item.xml")
4851
4952atomTemplate :: String
50−atomTemplate = unpack $(embedFile "data/templates/atom.xml")
53+atomTemplate = T.unpack $
54+ T.decodeUtf8 $(embedFile "data/templates/atom.xml")
5155
5256atomItemTemplate :: String
53−atomItemTemplate = unpack $(embedFile "data/templates/atom-item.xml")
57+atomItemTemplate = T.unpack $
58+ T.decodeUtf8 $(embedFile "data/templates/atom-item.xml")
5459
5560
5661--------------------------------------------------------------------------------