453970c · typeable/pandoc

git.iko.soy/typeable/pandoc

Text.Pandoc.Data: ensure it compiles even without embed_data_files.

In this case we don't depend on file-embed or use TH.

commit453970c6b34ed7cc2f52181e5e77b9182a3639e9 authorJohn MacFarlane <jgm@berkeley.edu> dateSun 26 Mar 2017, 19:19 (10 years ago) parentbd99d9f

1 file changed+11−3

unifiedsplit

src/Text/Pandoc/Data.hs+11−3

@@ -1,11 +1,15 @@

1+{-# LANGUAGE CPP #-}

2+#ifdef EMBED_DATA_FILES

13{-# LANGUAGE TemplateHaskell #-}

2−

4+#endif

35module Text.Pandoc.Data (dataFiles) where

5−import Data.FileEmbed

7+import System.FilePath (FilePath, splitDirectories)

68import qualified Data.ByteString as B

7−import System.FilePath (splitDirectories)

89import qualified System.FilePath.Posix as Posix

10+#ifdef EMBED_DATA_FILES

11+import Data.FileEmbed

12+#endif

913

1014-- We ensure that the data files are stored using Posix

1115-- path separators (/), even on Windows.

@@ -14,4 +18,8 @@ dataFiles = map (\(fp, contents) ->

1418 (Posix.joinPath (splitDirectories fp), contents)) dataFiles'

1519

1620dataFiles' :: [(FilePath, B.ByteString)]

21+#ifdef EMBED_DATA_FILES

1722dataFiles' = ("MANUAL.txt", $(embedFile "MANUAL.txt")) : $(embedDir "data")

23+#else

24+dataFiles' = error "dataFiles is only defined when embed_data_files flag set"

25+#endif