3 files changed, 6 insertions(+), 3 deletions(-)

M rhapsode.cabal
M src/CExports.hs
M src/Render.hs

@@ 61,7 61,7 @@ library
   
   -- Other library packages from which modules are imported.
   build-depends:       base >=4.9 && <5, directory >= 1.3.2, bytestring,
-        file-embed >= 0.0.9 && < 0.1, time, parallel >= 1,
+        file-embed >= 0.0.10 && < 0.1, time, parallel >= 1,
         -- HTML parsing, SSML output
         xml-conduit, text, containers, hurl-xml >= 0.2,
         -- Networking

@@ 111,7 111,9 @@ foreign export ccall c_freeSession :: StablePtr Session -> IO ()
 
 c_newSession = do
     sess <- newSession
-    newStablePtr $ sess {aboutPages = map lazify $(embedDir $ buildDirFile "about")}
+    newStablePtr $ sess {
+        aboutPages = map lazify $(makeRelativeToProject "about" >>= embedDir)
+    }
   where lazify (a, b) = (a, B.fromStrict b)
 c_freeSession = freeStablePtr
 

@@ 74,7 74,8 @@ renderElLBS el = XML.renderLBS XML.def $ XML.Document {
 
 retreiveStyles :: Session -> CSSCond.ConditionalStyles (CSSTxt.TextStyle SpeechStyle) -> IO (CSSCond.ConditionalStyles (CSSTxt.TextStyle SpeechStyle))
 retreiveStyles manager authorStyle = do
-    let agentStyle = cssPriorityAgent authorStyle `CSS.parse` $(embedStringFile $ buildDirFile "useragent.css")
+    let agentStyle = cssPriorityAgent authorStyle `CSS.parse`
+            $(makeRelativeToProject "useragent.css" >>= embedStringFile)
     userStyle <- loadUserStyles agentStyle
     CSSCond.loadImports loadURL lowerVars lowerToks userStyle []
   where