{-# LANGUAGE TemplateHaskell #-}
{- |
Module      : Text.Pandoc.Data
Copyright   : Copyright (C) 2013-2022 John MacFarlane
License     : GNU GPL, version 2 or above

Maintainer  : John MacFarlane <jgm@berkeley@edu>
Stability   : alpha
Portability : portable

Provide contents data files as Haskell values.
-}
module Text.Pandoc.Data (dataFiles) where

import qualified Data.ByteString as B
import Data.FileEmbed
import System.FilePath (splitDirectories)
import qualified System.FilePath.Posix as Posix

-- We ensure that the data files are stored using Posix
-- path separators (/), even on Windows.
dataFiles :: [(FilePath, B.ByteString)]
dataFiles :: [(FilePath, ByteString)]
dataFiles = ((FilePath, ByteString) -> (FilePath, ByteString))
-> [(FilePath, ByteString)] -> [(FilePath, ByteString)]
forall a b. (a -> b) -> [a] -> [b]
map (\(FilePath
fp, ByteString
contents) ->
  ([FilePath] -> FilePath
Posix.joinPath (FilePath -> [FilePath]
splitDirectories FilePath
fp), ByteString
contents)) [(FilePath, ByteString)]
dataFiles'

dataFiles' :: [(FilePath, B.ByteString)]
dataFiles' :: [(FilePath, ByteString)]
dataFiles' = (FilePath
"MANUAL.txt", $(embedFile "MANUAL.txt")) (FilePath, ByteString)
-> [(FilePath, ByteString)] -> [(FilePath, ByteString)]
forall a. a -> [a] -> [a]
:
             -- handle the hidden file separately, since embedDir doesn't
             -- include it:
             (FilePath
"docx/_rels/.rels", $(embedFile "data/docx/_rels/.rels")) (FilePath, ByteString)
-> [(FilePath, ByteString)] -> [(FilePath, ByteString)]
forall a. a -> [a] -> [a]
:
             (FilePath
"pptx/_rels/.rels", $(embedFile "data/pptx/_rels/.rels")) (FilePath, ByteString)
-> [(FilePath, ByteString)] -> [(FilePath, ByteString)]
forall a. a -> [a] -> [a]
:
             $(embedDir "data")