diff options
| author | Jesse Rosenthal <jrosenthal@jhu.edu> | 2016-08-31 14:04:42 -0400 |
|---|---|---|
| committer | Jesse Rosenthal <jrosenthal@jhu.edu> | 2016-09-02 09:18:08 -0400 |
| commit | 1cdebe1170cbf8ea57496cef13fd961c7f8cec54 (patch) | |
| tree | 139978158821e821487b0ec160517efd3657badf /src/Text | |
| parent | 45c7108b4f8dbaf616bb9b9442f4d16892d4440f (diff) | |
| download | pandoc-1cdebe1170cbf8ea57496cef13fd961c7f8cec54.tar.gz | |
Remove an inline monad compatibility macro.
Diffstat (limited to 'src/Text')
| -rw-r--r-- | src/Text/Pandoc/Pretty.hs | 12 |
1 files changed, 0 insertions, 12 deletions
diff --git a/src/Text/Pandoc/Pretty.hs b/src/Text/Pandoc/Pretty.hs index a0078037d..0bac628af 100644 --- a/src/Text/Pandoc/Pretty.hs +++ b/src/Text/Pandoc/Pretty.hs @@ -126,18 +126,6 @@ isEmpty = null . toList . unDoc empty :: Doc empty = mempty -#if MIN_VERSION_base(4,5,0) --- (<>) is defined in Data.Monoid -#else -infixr 6 <> - --- | An infix synonym for 'mappend'. --- @a <> b@ is the result of concatenating @a@ with @b@. -(<>) :: Monoid m => m -> m -> m -(<>) = mappend -{-# INLINE (<>) #-} -#endif - -- | Concatenate a list of 'Doc's. cat :: [Doc] -> Doc cat = mconcat |