From 6cf7e918ce302942b844c85e952089a1b984d198 Mon Sep 17 00:00:00 2001 From: mrkkrp Date: Wed, 21 Oct 2015 19:50:04 +0600 Subject: [PATCH] =?UTF-8?q?fix=20build=20for=20older=20versions=20of=20?= =?UTF-8?q?=E2=80=98base=E2=80=99?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Text/Megaparsec/Error.hs | 1 + tests/Error.hs | 1 + 2 files changed, 2 insertions(+) diff --git a/Text/Megaparsec/Error.hs b/Text/Megaparsec/Error.hs index 05b5078..a7bf9a6 100644 --- a/Text/Megaparsec/Error.hs +++ b/Text/Megaparsec/Error.hs @@ -41,6 +41,7 @@ import Text.Megaparsec.Pos #if !MIN_VERSION_base(4,8,0) import Control.Applicative ((<$>)) import Data.Foldable (foldMap) +import Data.Monoid #endif #if !MIN_VERSION_base(4,7,0) bool :: a -> a -> Bool -> a diff --git a/tests/Error.hs b/tests/Error.hs index e1acd6a..63274b6 100644 --- a/tests/Error.hs +++ b/tests/Error.hs @@ -47,6 +47,7 @@ import Text.Megaparsec.Pos #if !MIN_VERSION_base(4,8,0) import Control.Applicative ((<$>), (<*>)) +import Data.Monoid (mempty) #endif #if !MIN_VERSION_base(4,7,0) bool :: a -> a -> Bool -> a