From abc4bca46bbebc81bfa78c96aa594ae48dfea2f0 Mon Sep 17 00:00:00 2001 From: Jesse Rosenthal Date: Mon, 29 Aug 2016 22:35:44 -0400 Subject: Docx reader: make all compilers happy with traversable. The last attempt to make 7.8 happy made 7.10 unhappy. So we need some conditional logic to appease all versions. --- src/Text/Pandoc/Readers/Docx.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/Text/Pandoc/Readers/Docx.hs b/src/Text/Pandoc/Readers/Docx.hs index 9cc5353e7..b51572783 100644 --- a/src/Text/Pandoc/Readers/Docx.hs +++ b/src/Text/Pandoc/Readers/Docx.hs @@ -1,4 +1,4 @@ -{-# LANGUAGE PatternGuards, OverloadedStrings #-} +{-# LANGUAGE PatternGuards, OverloadedStrings, CPP #-} {- Copyright (C) 2014-2016 Jesse Rosenthal @@ -93,7 +93,9 @@ import Control.Monad.Reader import Control.Monad.State import Data.Sequence (ViewL(..), viewl) import qualified Data.Sequence as Seq (null) +#if !(MIN_VERSION_base(4,8,0)) import Data.Traversable (traverse) +#endif import Text.Pandoc.Error import Text.Pandoc.Compat.Except -- cgit v1.2.3