aboutsummaryrefslogtreecommitdiff
path: root/src/Text
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2021-08-11 23:14:17 -0700
committerJohn MacFarlane <jgm@berkeley.edu>2021-08-11 23:14:43 -0700
commitec34497bc1b858e5bd56a09c5919238c5ea97de1 (patch)
treeb7ccceb6525c8d3777204832f8ce34808c8cb454 /src/Text
parent073895c340b85dc66b45e0c716d8357f8c7c5a13 (diff)
downloadpandoc-ec34497bc1b858e5bd56a09c5919238c5ea97de1.tar.gz
Try fixing compile error on older ghcs.
See https://github.com/jgm/gitit/runs/3308381697
Diffstat (limited to 'src/Text')
-rw-r--r--src/Text/Pandoc/Readers/Odt/ContentReader.hs6
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