git.iko.soy/hakyll
on master help sign in
Use makeRelativeToProject with embedFile (for stack ghci)

The 'makeRelativeToProject' allows usage of package relative filepaths, even if ghc's working dir is not the package directory. This enables me to have a locally modified version of hakyll as part of my stack project, and run "stack ghci" to load my hakyll project + hakyll all into one ghci session.

commit1abdeee743d65d96c6f469213ca6e7ea823340a7 authorMichael Sloan <mgsloan@gmail.com> dateSat 9 Jun 2018, 13:25 (8 years ago) parentaf5ad67
1 file changed+5−6
compare with master
unifiedsplit
lib/Hakyll/Web/Feed.hs+5−6
lib/Hakyll/Web/Feed.hs+5−6
@@ -35,7 +35,7 @@ import Hakyll.Web.Template.List
3535
3636
3737--------------------------------------------------------------------------------
38−import Data.FileEmbed (embedFile)
38+import Data.FileEmbed (makeRelativeToProject, embedFile)
3939import qualified Data.Text as T
4040import qualified Data.Text.Encoding as T
4141
@@ -43,20 +43,19 @@ import qualified Data.Text.Encoding as T
4343--------------------------------------------------------------------------------
4444rssTemplate :: String
4545rssTemplate = T.unpack $
46− T.decodeUtf8 $(embedFile "data/templates/rss.xml")
46+ T.decodeUtf8 $(makeRelativeToProject "data/templates/rss.xml" >>= embedFile)
4747
4848rssItemTemplate :: String
4949rssItemTemplate = T.unpack $
50− T.decodeUtf8 $(embedFile "data/templates/rss-item.xml")
50+ T.decodeUtf8 $(makeRelativeToProject "data/templates/rss-item.xml" >>= embedFile)
5151
5252atomTemplate :: String
5353atomTemplate = T.unpack $
54− T.decodeUtf8 $(embedFile "data/templates/atom.xml")
54+ T.decodeUtf8 $(makeRelativeToProject "data/templates/atom.xml" >>= embedFile)
5555
5656atomItemTemplate :: String
5757atomItemTemplate = T.unpack $
58− T.decodeUtf8 $(embedFile "data/templates/atom-item.xml")
59−
58+ T.decodeUtf8 $(makeRelativeToProject "data/templates/atom-item.xml" >>= embedFile)
6059
6160--------------------------------------------------------------------------------
6261-- | This is a data structure to keep the configuration of a feed.