{-# LANGUAGE CPP #-}
module Data.Express.Utils
( module Data.Express.Utils.List
, module Data.Express.Utils.String
, module Data.Monoid
, module Data.Maybe
, module Data.Either
, module Data.Function
, module Control.Monad
#if __GLASGOW_HASKELL__ < 704
, (<>)
#endif
#if __HUGS__
, (>=>)
#endif
)
where
import Data.Express.Utils.List
import Data.Express.Utils.String
import Data.Function
import Data.Maybe
import Data.Either
import Data.Monoid
import Control.Monad
#if __GLASGOW_HASKELL__ < 704
(<>) :: Monoid m => m -> m -> m
(<>) = mappend
infixr 6 <>
#endif
#if __HUGS__
(>=>) :: Monad m => (a -> m b) -> (b -> m c) -> (a -> m c)
f >=> g = \x -> f x >>= g
#endif