@@ -41,12 +41,15 @@ import Control.Monad (MonadPlus(..), ap)
4141import Control.Monad.IO.Class (MonadIO(..))
4242import Data.ByteString (ByteString)
4343import Data.Functor.Identity (Identity(runIdentity))
44−import Data.Monoid (Monoid(..))
4544import Data.Word (Word8)
4645import Prelude hiding (take, takeWhile)
4746import qualified Data.ByteString as B
4847import qualified Data.ByteString.Unsafe as B
4948
49+#if !MIN_VERSION_base(4,8,0)
50+import Data.Monoid (Monoid(..))
51+#endif
52+
5053newtype S = S {
5154 input :: ByteString
5255 }