From 1d68232db477eb314b9593b0f8a16a3dd65265a0 Mon Sep 17 00:00:00 2001 From: CristhianMotoche Date: Mon, 15 Jan 2018 11:35:21 -0500 Subject: [PATCH] Fix missing imports --- Text/Inflections/Parse/CamelCase.hs | 8 +++++--- Text/Inflections/Parse/SnakeCase.hs | 8 +++++--- 2 files changed, 10 insertions(+), 6 deletions(-) diff --git a/Text/Inflections/Parse/CamelCase.hs b/Text/Inflections/Parse/CamelCase.hs index 206da1e..93d8c7d 100644 --- a/Text/Inflections/Parse/CamelCase.hs +++ b/Text/Inflections/Parse/CamelCase.hs @@ -17,13 +17,15 @@ module Text.Inflections.Parse.CamelCase ( parseCamelCase ) where -#if !MIN_VERSION_megaparsec(6,4,0) -import Control.Applicative +# if MIN_VERSION_base(4,8,0) +import Control.Applicative (empty, many, (<|>)) +#else +import Control.Applicative (empty, many, (<|>), (<$>), (<*), (<*>)) #endif import Data.Text (Text) import Data.Void (Void) import Text.Inflections.Types -import Text.Megaparsec +import Text.Megaparsec (Parsec, ParseError, choice, eof, parse) import Text.Megaparsec.Char import qualified Data.Text as T diff --git a/Text/Inflections/Parse/SnakeCase.hs b/Text/Inflections/Parse/SnakeCase.hs index bed26db..1f32d83 100644 --- a/Text/Inflections/Parse/SnakeCase.hs +++ b/Text/Inflections/Parse/SnakeCase.hs @@ -16,13 +16,15 @@ module Text.Inflections.Parse.SnakeCase ( parseSnakeCase ) where -#if !MIN_VERSION_megaparsec(6,4,0) -import Control.Applicative +# if MIN_VERSION_base(4,8,0) +import Control.Applicative (empty, some) +#else +import Control.Applicative (empty, some, (<$>), (<*), (<*>)) #endif import Data.Text (Text) import Data.Void (Void) import Text.Inflections.Types -import Text.Megaparsec +import Text.Megaparsec (Parsec, ParseError, eof, sepBy, parse) import Text.Megaparsec.Char import qualified Data.Text as T