From fe337b07f7c0a15ac792275ed8fb88d3fa5247a3 Mon Sep 17 00:00:00 2001
From: John MacFarlane <fiddlosopher@gmail.com>
Date: Wed, 23 Jan 2013 08:33:45 -0800
Subject: Use hsb2hs preprocessor instead of TH for embed_data_files.

This should work on Windows, unlike the TH solution with
file-embed.
---
 src/Text/Pandoc/Data.hs  | 7 -------
 src/Text/Pandoc/Data.hsb | 7 +++++++
 2 files changed, 7 insertions(+), 7 deletions(-)
 delete mode 100644 src/Text/Pandoc/Data.hs
 create mode 100644 src/Text/Pandoc/Data.hsb

(limited to 'src')

diff --git a/src/Text/Pandoc/Data.hs b/src/Text/Pandoc/Data.hs
deleted file mode 100644
index 441fa5913..000000000
--- a/src/Text/Pandoc/Data.hs
+++ /dev/null
@@ -1,7 +0,0 @@
-{-# LANGUAGE TemplateHaskell #-}
-module Text.Pandoc.Data (dataFiles) where
-import Data.FileEmbed
-import qualified Data.ByteString as B
-
-dataFiles :: [(FilePath, B.ByteString)]
-dataFiles = $(embedDir "data")
diff --git a/src/Text/Pandoc/Data.hsb b/src/Text/Pandoc/Data.hsb
new file mode 100644
index 000000000..28e7f5112
--- /dev/null
+++ b/src/Text/Pandoc/Data.hsb
@@ -0,0 +1,7 @@
+{-# LANGUAGE OverloadedStrings #-}
+-- to be processed using hsb2hs
+module Text.Pandoc.Data (dataFiles) where
+import qualified Data.ByteString as B
+
+dataFiles :: [(FilePath, B.ByteString)]
+dataFiles = %blobs "data"
-- 
cgit v1.2.3