Remove an inline monad compatibility macro.
commit1cdebe1170cbf8ea57496cef13fd961c7f8cec54
authorJesse Rosenthal <jrosenthal@jhu.edu>
dateWed 31 Aug 2016, 14:04 (10 years ago)
parent45c7108
src/Text/Pandoc/Pretty.hs−12
@@ -126,18 +126,6 @@ isEmpty = null . toList . unDoc
126126empty :: Doc
127127empty = mempty
128128
129−#if MIN_VERSION_base(4,5,0)
130−-- (<>) is defined in Data.Monoid
131−#else
132−infixr 6 <>
133−
134−-- | An infix synonym for 'mappend'.
135−-- @a <> b@ is the result of concatenating @a@ with @b@.
136−(<>) :: Monoid m => m -> m -> m
137−(<>) = mappend
138−{-# INLINE (<>) #-}
139−#endif
140−
141129-- | Concatenate a list of 'Doc's.
142130cat :: [Doc] -> Doc
143131cat = mconcat