git.iko.soy/typeable/pandoc
on master help sign in
Docx reader: make all compilers happy with traversable.
abc4bcaJesse Rosenthal
src/Text/Pandoc/Readers/Docx.hs+3−1
compare with master
unifiedsplit
@@ -1,4 +1,4 @@
1−{-# LANGUAGE PatternGuards, OverloadedStrings #-}
1+{-# LANGUAGE PatternGuards, OverloadedStrings, CPP #-}
2
2
3{-
3{-
4Copyright (C) 2014-2016 Jesse Rosenthal <jrosenthal@jhu.edu>
4Copyright (C) 2014-2016 Jesse Rosenthal <jrosenthal@jhu.edu>
@@ -93,7 +93,9 @@ import Control.Monad.Reader
93import Control.Monad.State
93import Control.Monad.State
94import Data.Sequence (ViewL(..), viewl)
94import Data.Sequence (ViewL(..), viewl)
95import qualified Data.Sequence as Seq (null)
95import qualified Data.Sequence as Seq (null)
96+#if !(MIN_VERSION_base(4,8,0))
96import Data.Traversable (traverse)
97import Data.Traversable (traverse)
98+#endif
97
99
98import Text.Pandoc.Error
100import Text.Pandoc.Error
99import Text.Pandoc.Compat.Except
101import Text.Pandoc.Compat.Except