From ec34497bc1b858e5bd56a09c5919238c5ea97de1 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Wed, 11 Aug 2021 23:14:17 -0700
Subject: [PATCH] Try fixing compile error on older ghcs.
See https://github.com/jgm/gitit/runs/3308381697
---
src/Text/Pandoc/Readers/Odt/ContentReader.hs | 6 +++++-
1 file changed, 5 insertions(+), 1 deletion(-)
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