git.iko.soy/typeable/pandoc
on master help sign in
Don't expose Text.Pandoc.Biblio module unless citeproc option is selected.

git-svn-id: https://pandoc.googlecode.com/svn/trunk@1408 788f1e2b-df1e-0410-8736-df70ead52e1b

commitaeaf5e5108de4e7ab20782cf753e4617df45d8a2 authorfiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> dateTue 12 Aug 2008, 01:23 (18 years ago) parent17a41e6
2 files changed+2−9
compare with master
unifiedsplit
Text/Pandoc/Biblio.hs+1−8 pandoc.cabal+1−1
Text/Pandoc/Biblio.hs+1−8
@@ -1,4 +1,4 @@
1−{-# LANGUAGE PatternGuards, CPP #-}
1+{-# LANGUAGE PatternGuards #-}
22{-
33Copyright (C) 2008 Andrea Rossato <andrea.rossato@ing.unitn.it>
44
@@ -27,7 +27,6 @@ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
2727 Portability : portable
2828-}
2929
30−#ifdef _CITEPROC
3130module Text.Pandoc.Biblio ( processBiblio ) where
3231
3332import Control.Monad ( when )
@@ -35,11 +34,6 @@ import Data.List
3534import Text.CSL
3635import Text.Pandoc.Definition
3736
38−#else
39−module Text.Pandoc.Biblio () where
40−#endif
41−
42−#ifdef _CITEPROC
4337-- | Process a 'Pandoc' document by adding citations formatted
4438-- according to a CSL style, using 'citeproc' from citeproc-hs.
4539processBiblio :: String -> [Reference] -> Pandoc -> IO Pandoc
@@ -70,4 +64,3 @@ processCite cs il
7064getCite :: Inline -> [[(String,String)]]
7165getCite i | Cite t _ <- i = [t]
7266 | otherwise = []
73−#endif
pandoc.cabal+1−1
@@ -156,12 +156,12 @@ Library
156156 Other-Modules: Text.Pandoc.UTF8
157157 if flag(citeproc)
158158 Build-depends: citeproc-hs
159+ Exposed-Modules: Text.Pandoc.Biblio
159160 cpp-options: -D_CITEPROC
160161 Build-Depends: parsec < 3, xhtml, mtl, network, filepath, process, directory,
161162 template-haskell, bytestring
162163 Hs-Source-Dirs: .
163164 Exposed-Modules: Text.Pandoc,
164− Text.Pandoc.Biblio,
165165 Text.Pandoc.Blocks,
166166 Text.Pandoc.Definition,
167167 Text.Pandoc.CharacterReferences,