aboutsummaryrefslogtreecommitdiff
path: root/src/Text
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2017-04-02 23:10:10 +0200
committerJohn MacFarlane <jgm@berkeley.edu>2017-04-02 23:10:10 +0200
commitff991d1e2151479ff7dc15aba9c17251ff060408 (patch)
tree292d10f7232ef50c604763f2817476791af5c856 /src/Text
parent913db947a9cb43b6f449db2cd4c85fd74aa1ac8f (diff)
downloadpandoc-ff991d1e2151479ff7dc15aba9c17251ff060408.tar.gz
Revert "Revert "Use file-embed instead of hsb2hs to embed data files.""
This reverts commit 1fa15c225b515e1fa1c6566f90f1be363a4d770f.
Diffstat (limited to 'src/Text')
-rw-r--r--src/Text/Pandoc/Data.hs (renamed from src/Text/Pandoc/Data.hsb)9
1 files changed, 5 insertions, 4 deletions
diff --git a/src/Text/Pandoc/Data.hsb b/src/Text/Pandoc/Data.hs
index 02c109816..df26f5412 100644
--- a/src/Text/Pandoc/Data.hsb
+++ b/src/Text/Pandoc/Data.hs
@@ -1,6 +1,8 @@
-{-# LANGUAGE OverloadedStrings #-}
--- to be processed using hsb2hs
+{-# LANGUAGE TemplateHaskell #-}
+
module Text.Pandoc.Data (dataFiles) where
+
+import Data.FileEmbed
import qualified Data.ByteString as B
import System.FilePath (splitDirectories)
import qualified System.FilePath.Posix as Posix
@@ -12,5 +14,4 @@ dataFiles = map (\(fp, contents) ->
(Posix.joinPath (splitDirectories fp), contents)) dataFiles'
dataFiles' :: [(FilePath, B.ByteString)]
-dataFiles' = ("MANUAL.txt", %blob "MANUAL.txt") : %blobs "data"
-
+dataFiles' = ("MANUAL.txt", $(embedFile "MANUAL.txt")) : $(embedDir "data")