git.iko.soy/hakyll
on master help sign in
Use makeRelativeToProject with embedFile (for stack ghci)
1abdeeeMichael Sloan
lib/Hakyll/Web/Feed.hs+5−6
compare with master
unifiedsplit
@@ -35,7 +35,7 @@ import Hakyll.Web.Template.List
35
35
36
36
37--------------------------------------------------------------------------------
37--------------------------------------------------------------------------------
38−import Data.FileEmbed (embedFile)
38+import Data.FileEmbed (makeRelativeToProject, embedFile)
39import qualified Data.Text as T
39import qualified Data.Text as T
40import qualified Data.Text.Encoding as T
40import qualified Data.Text.Encoding as T
41
41
@@ -43,20 +43,19 @@ import qualified Data.Text.Encoding as T
43--------------------------------------------------------------------------------
43--------------------------------------------------------------------------------
44rssTemplate :: String
44rssTemplate :: String
45rssTemplate = T.unpack $
45rssTemplate = T.unpack $
46− T.decodeUtf8 $(embedFile "data/templates/rss.xml")
46+ T.decodeUtf8 $(makeRelativeToProject "data/templates/rss.xml" >>= embedFile)
47
47
48rssItemTemplate :: String
48rssItemTemplate :: String
49rssItemTemplate = T.unpack $
49rssItemTemplate = T.unpack $
50− T.decodeUtf8 $(embedFile "data/templates/rss-item.xml")
50+ T.decodeUtf8 $(makeRelativeToProject "data/templates/rss-item.xml" >>= embedFile)
51
51
52atomTemplate :: String
52atomTemplate :: String
53atomTemplate = T.unpack $
53atomTemplate = T.unpack $
54− T.decodeUtf8 $(embedFile "data/templates/atom.xml")
54+ T.decodeUtf8 $(makeRelativeToProject "data/templates/atom.xml" >>= embedFile)
55
55
56atomItemTemplate :: String
56atomItemTemplate :: String
57atomItemTemplate = T.unpack $
57atomItemTemplate = T.unpack $
58− T.decodeUtf8 $(embedFile "data/templates/atom-item.xml")
58+ T.decodeUtf8 $(makeRelativeToProject "data/templates/atom-item.xml" >>= embedFile)
59−
60
59
61--------------------------------------------------------------------------------
60--------------------------------------------------------------------------------
62-- | This is a data structure to keep the configuration of a feed.
61-- | This is a data structure to keep the configuration of a feed.