diff options
| author | Jesse Rosenthal <jrosenthal@jhu.edu> | 2016-08-29 22:35:44 -0400 |
|---|---|---|
| committer | Jesse Rosenthal <jrosenthal@jhu.edu> | 2016-08-29 23:16:40 -0400 |
| commit | abc4bca46bbebc81bfa78c96aa594ae48dfea2f0 (patch) | |
| tree | 86792bb50a6ab18bebd9237527b5f9f226ad0f05 | |
| parent | 773adc780420a71b13988d16681a01116cba0f18 (diff) | |
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.
| -rw-r--r-- | src/Text/Pandoc/Readers/Docx.hs | 4 |
1 files changed, 3 insertions, 1 deletions
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 <jrosenthal@jhu.edu> @@ -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 |