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

Try fixing compile error on older ghcs.

Browse source 
See https://github.com/jgm/gitit/runs/3308381697
This commit is contained in:
John MacFarlane 2021-08-11 23:14:17 -07:00
parent 073895c340
commit ec34497bc1
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/Text/Pandoc/Readers/Odt/ContentReader.hs
View file

@ -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