fix build for older versions of ‘base’

This commit is contained in:
mrkkrp 2015-10-21 19:50:04 +06:00
parent 48528af655
commit 6cf7e918ce
2 changed files with 2 additions and 0 deletions

View File

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

View File

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