diff --git a/regex-applicative-text.cabal b/regex-applicative-text.cabal
--- a/regex-applicative-text.cabal
+++ b/regex-applicative-text.cabal
@@ -1,9 +1,9 @@
--- This file has been generated from package.yaml by hpack version 0.5.2.
+-- This file has been generated from package.yaml by hpack version 0.8.0.
 --
 -- see: https://github.com/sol/hpack
 
 name:           regex-applicative-text
-version:        0.1.0.0
+version:        0.1.0.1
 synopsis:       regex-applicative on text
 description:    Wrapped regex-applicative primitives to work with Text
 category:       Text
@@ -13,6 +13,7 @@
 maintainer:     Oleg Grenrus <oleg.grenrus@iki.fi>
 license:        BSD3
 license-file:   LICENSE
+tested-with:    GHC==7.0.4, GHC==7.2.2, GHC==7.4.2, GHC==7.6.3, GHC==7.8.4, GHC==7.10.3, GHC==8.0.1
 build-type:     Simple
 cabal-version:  >= 1.10
 
@@ -28,7 +29,7 @@
       src
   ghc-options: -Wall
   build-depends:
-      base >= 4.7 && <4.9
+      base >= 4.3 && <4.10
     , regex-applicative >=0.3 && <0.4
     , text
   exposed-modules:
diff --git a/src/Text/Regex/Applicative/Text.hs b/src/Text/Regex/Applicative/Text.hs
--- a/src/Text/Regex/Applicative/Text.hs
+++ b/src/Text/Regex/Applicative/Text.hs
@@ -9,8 +9,11 @@
 --
 -- @Text.Regex.Applicative@ API specialised to 'Char' and 'Text'.
 --------------------------------------------------------------------
+{-# LANGUAGE CPP #-}
+#if __GLASGOW_HASKELL__ >=704
 {-# LANGUAGE Safe #-}
-module Text.Regex.Applicative.Text 
+#endif
+module Text.Regex.Applicative.Text
   (
   -- * Types
     RE'
@@ -42,7 +45,7 @@
 
 import           Control.Applicative
 import           Control.Arrow
-import           Data.Monoid
+import           Data.Monoid (mappend)
 import           Data.Text (Text)
 import qualified Data.Text as T
 import qualified Text.Regex.Applicative as R
@@ -187,7 +190,7 @@
         go [] = T.empty
         go ys@(x:xs) = case R.findLongestPrefix r ys of
                          Nothing              -> T.cons x (go xs)
-                         Just (prefix, rest)  -> prefix <> go rest
+                         Just (prefix, rest)  -> prefix `mappend` go rest
 
 -- Helpers