diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2017-04-02 23:10:10 +0200 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2017-04-02 23:10:10 +0200 |
| commit | ff991d1e2151479ff7dc15aba9c17251ff060408 (patch) | |
| tree | 292d10f7232ef50c604763f2817476791af5c856 /src/Text | |
| parent | 913db947a9cb43b6f449db2cd4c85fd74aa1ac8f (diff) | |
| download | pandoc-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") |