Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Pretty: Semigroup instance for Doc with base >= 4.9.

Browse source
This commit is contained in:
John MacFarlane 2018-03-16 08:12:33 -07:00
parent ec1e2c87b7
commit 07e0981316
1 changed files with 4 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/Text/Pandoc/Pretty.hs
View file

@ -112,7 +112,11 @@ data D = Text Int String
deriving (Show, Eq) deriving (Show, Eq)
newtype Doc = Doc { unDoc :: Seq D } newtype Doc = Doc { unDoc :: Seq D }
#if MIN_VERSION_base(4,9,0)
deriving (Semigroup, Monoid, Show, Eq)
#else
deriving (Monoid, Show, Eq) deriving (Monoid, Show, Eq)
#endif
instance IsString Doc where instance IsString Doc where
fromString = text fromString = text