diff options
author | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2009-12-31 01:11:23 +0000 |
---|---|---|
committer | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2009-12-31 01:11:23 +0000 |
commit | 9eb435d3c138e6ff9d057f7349a9d87d6a1975bc (patch) | |
tree | bb2e2bfc5c12cb73bfb9990e73e4d8ba43fdfe46 /src/Text/Pandoc/TH.hs | |
parent | ae44c7297f5ce12a3f1acd8c44efe11870805c0c (diff) | |
download | pandoc-9eb435d3c138e6ff9d057f7349a9d87d6a1975bc.tar.gz |
Removed TH module; refactored LaTeXMathML not to use TH.
git-svn-id: https://pandoc.googlecode.com/svn/trunk@1692 788f1e2b-df1e-0410-8736-df70ead52e1b
Diffstat (limited to 'src/Text/Pandoc/TH.hs')
-rw-r--r-- | src/Text/Pandoc/TH.hs | 53 |
1 files changed, 0 insertions, 53 deletions
diff --git a/src/Text/Pandoc/TH.hs b/src/Text/Pandoc/TH.hs deleted file mode 100644 index dfd6be28b..000000000 --- a/src/Text/Pandoc/TH.hs +++ /dev/null @@ -1,53 +0,0 @@ -{-# OPTIONS_GHC -fno-warn-orphans #-} -{- -Copyright (C) 2008 John MacFarlane <jgm@berkeley.edu> - -This program is free software; you can redistribute it and/or modify -it under the terms of the GNU General Public License as published by -the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -This program is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -GNU General Public License for more details. - -You should have received a copy of the GNU General Public License -along with this program; if not, write to the Free Software -Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA --} - -{- | - Module : Text.Pandoc.TH - Copyright : Copyright (C) 2006-8 John MacFarlane - License : GNU GPL, version 2 or above - - Maintainer : John MacFarlane <jgm@berkeley.edu> - Stability : alpha - Portability : portable - -Template haskell functions used by Pandoc modules. --} -module Text.Pandoc.TH ( - contentsOf, - binaryContentsOf - ) where - -import Language.Haskell.TH -import Language.Haskell.TH.Syntax (Lift (..)) -import qualified Data.ByteString as B -import Data.ByteString.Internal ( w2c ) -import Prelude hiding ( readFile ) -import System.IO.UTF8 - --- | Insert contents of text file into a template. -contentsOf :: FilePath -> ExpQ -contentsOf p = lift =<< (runIO $ readFile p) - --- | Insert contents of binary file into a template. --- Note that @Data.ByteString.readFile@ uses binary mode on windows. -binaryContentsOf :: FilePath -> ExpQ -binaryContentsOf p = lift =<< (runIO $ B.readFile p) - -instance Lift B.ByteString where - lift x = return (LitE (StringL $ map w2c $ B.unpack x)) |