Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Templates: Conditionally import Control.Exception.Extensible if base < 4.

Browse source 
git-svn-id: https://pandoc.googlecode.com/svn/trunk@1910 788f1e2b-df1e-0410-8736-df70ead52e1b
This commit is contained in:
fiddlosopher 2010-03-18 21:35:41 +00:00
parent 56217f1004
commit bd433b5738
1 changed files with 7 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
src/Text/Pandoc/Templates.hs
View file

@ -70,15 +70,19 @@ module Text.Pandoc.Templates ( renderTemplate
import Text.ParserCombinators.Parsec
import Control.Monad (liftM, when, forM)
import qualified Control.Exception as E (try, IOException)
import System.FilePath
import Data.List (intercalate, intersperse)
import Text.PrettyPrint (text, Doc)
import Text.XHtml (primHtml, Html)
import Data.ByteString.Lazy.UTF8 (ByteString, fromString)
import Text.Pandoc.Shared (readDataFile)
-- Note: ghc >= 6.12 (base >=4.2) supports unicode through iconv
-- So we use System.IO.UTF8 only if we have an earlier version
-- Note: it would be simpler just to use Control.Exception.Extensible
-- for all versions of base, but extensible-exceptions is not in debian.
#if MIN_VERSION_base(4,0,0)
import qualified Control.Exception as E (try, IOException)
#else
import qualified Control.Exception.Extensible as E (try, IOException)
#endif
-- | Get default template for the specified writer.
getDefaultTemplate :: (Maybe FilePath) -- ^ User data directory to search first