diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2021-08-11 23:14:17 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2021-08-11 23:14:43 -0700 |
| commit | ec34497bc1b858e5bd56a09c5919238c5ea97de1 (patch) | |
| tree | b7ccceb6525c8d3777204832f8ce34808c8cb454 | |
| parent | 073895c340b85dc66b45e0c716d8357f8c7c5a13 (diff) | |
| download | pandoc-ec34497bc1b858e5bd56a09c5919238c5ea97de1.tar.gz | |
Try fixing compile error on older ghcs.
See https://github.com/jgm/gitit/runs/3308381697
| -rw-r--r-- | src/Text/Pandoc/Readers/Odt/ContentReader.hs | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/Odt/ContentReader.hs b/src/Text/Pandoc/Readers/Odt/ContentReader.hs index 5520d039f..734a6e116 100644 --- a/src/Text/Pandoc/Readers/Odt/ContentReader.hs +++ b/src/Text/Pandoc/Readers/Odt/ContentReader.hs @@ -7,6 +7,9 @@ {-# LANGUAGE TupleSections #-} {-# LANGUAGE ViewPatterns #-} {-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE StandaloneDeriving #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE FlexibleContexts #-} {- | Module : Text.Pandoc.Readers.Odt.ContentReader Copyright : Copyright (C) 2015 Martin Linnemann @@ -507,7 +510,8 @@ type InlineMatcher = ElementMatcher Inlines type BlockMatcher = ElementMatcher Blocks newtype FirstMatch a = FirstMatch (Alt Maybe a) - deriving (Foldable, Monoid, Semigroup) + deriving (Monoid, Semigroup) +deriving instance Foldable FirstMatch firstMatch :: a -> FirstMatch a firstMatch = FirstMatch . Alt . Just |