diff --git a/lib/Text/Regex/TDFA/NewDFA/Engine.hs b/lib/Text/Regex/TDFA/NewDFA/Engine.hs
index af7e1e7..6177048 100644
--- a/lib/Text/Regex/TDFA/NewDFA/Engine.hs
+++ b/lib/Text/Regex/TDFA/NewDFA/Engine.hs
@@ -44,6 +44,8 @@ import Data.Sequence(Seq,ViewL(..),viewl)
 import qualified Data.Sequence as Seq(null)
 import qualified Data.ByteString.Char8 as SBS(ByteString)
 import qualified Data.ByteString.Lazy.Char8 as LBS(ByteString)
+import qualified Data.Text as T
+import qualified Data.Text.Lazy as TL
 import Foreign.Ptr(Ptr)
 
 import Text.Regex.Base(MatchArray,MatchOffset,MatchLength)
@@ -82,6 +84,8 @@ set = unsafeWrite
 {-# SPECIALIZE execMatch :: Regex -> Position -> Char -> (Seq Char) -> [MatchArray] #-}
 {-# SPECIALIZE execMatch :: Regex -> Position -> Char -> SBS.ByteString -> [MatchArray] #-}
 {-# SPECIALIZE execMatch :: Regex -> Position -> Char -> LBS.ByteString -> [MatchArray] #-}
+{-# SPECIALIZE execMatch :: Regex -> Position -> Char -> T.Text -> [MatchArray] #-}
+{-# SPECIALIZE execMatch :: Regex -> Position -> Char -> TL.Text -> [MatchArray] #-}
 execMatch :: Uncons text => Regex -> Position -> Char -> text -> [MatchArray]
 execMatch r@(Regex { regex_dfa = DFA {d_id=didIn,d_dt=dtIn}
                    , regex_init = startState
diff --git a/lib/Text/Regex/TDFA/NewDFA/Engine_NC.hs b/lib/Text/Regex/TDFA/NewDFA/Engine_NC.hs
index 1708c1e..3ba0e1f 100644
--- a/lib/Text/Regex/TDFA/NewDFA/Engine_NC.hs
+++ b/lib/Text/Regex/TDFA/NewDFA/Engine_NC.hs
@@ -18,6 +18,8 @@ import qualified Control.Monad.ST.Strict as S(ST)
 import Data.Sequence(Seq)
 import qualified Data.ByteString.Char8 as SBS(ByteString)
 import qualified Data.ByteString.Lazy.Char8 as LBS(ByteString)
+import qualified Data.Text as T
+import qualified Data.Text.Lazy as TL
 
 import Text.Regex.Base(MatchArray,MatchOffset,MatchLength)
 import qualified Text.Regex.TDFA.IntArrTrieSet as Trie(lookupAsc)
@@ -44,6 +46,8 @@ set = unsafeWrite
 {-# SPECIALIZE execMatch :: Regex -> Position -> Char -> (Seq Char) -> [MatchArray] #-}
 {-# SPECIALIZE execMatch :: Regex -> Position -> Char -> SBS.ByteString -> [MatchArray] #-}
 {-# SPECIALIZE execMatch :: Regex -> Position -> Char -> LBS.ByteString -> [MatchArray] #-}
+{-# SPECIALIZE execMatch :: Regex -> Position -> Char -> T.Text -> [MatchArray] #-}
+{-# SPECIALIZE execMatch :: Regex -> Position -> Char -> TL.Text -> [MatchArray] #-}
 execMatch :: Uncons text => Regex -> Position -> Char -> text -> [MatchArray]
 execMatch (Regex { regex_dfa = (DFA {d_id=didIn,d_dt=dtIn})
                  , regex_init = startState
diff --git a/lib/Text/Regex/TDFA/NewDFA/Engine_NC_FA.hs b/lib/Text/Regex/TDFA/NewDFA/Engine_NC_FA.hs
index af783e3..e1b2da1 100644
--- a/lib/Text/Regex/TDFA/NewDFA/Engine_NC_FA.hs
+++ b/lib/Text/Regex/TDFA/NewDFA/Engine_NC_FA.hs
@@ -16,6 +16,8 @@ import qualified Control.Monad.ST.Strict as S(ST,runST)
 import Data.Sequence(Seq)
 import qualified Data.ByteString.Char8 as SBS(ByteString)
 import qualified Data.ByteString.Lazy.Char8 as LBS(ByteString)
+import qualified Data.Text as T
+import qualified Data.Text.Lazy as TL
 
 import Text.Regex.Base(MatchArray,MatchOffset,MatchLength)
 import Text.Regex.TDFA.Common hiding (indent)
@@ -31,6 +33,8 @@ import Text.Regex.TDFA.NewDFA.MakeTest(test_singleline)
 {-# SPECIALIZE execMatch :: Regex -> Position -> Char -> (Seq Char) -> [MatchArray] #-}
 {-# SPECIALIZE execMatch :: Regex -> Position -> Char -> SBS.ByteString -> [MatchArray] #-}
 {-# SPECIALIZE execMatch :: Regex -> Position -> Char -> LBS.ByteString -> [MatchArray] #-}
+{-# SPECIALIZE execMatch :: Regex -> Position -> Char -> T.Text -> [MatchArray] #-}
+{-# SPECIALIZE execMatch :: Regex -> Position -> Char -> TL.Text -> [MatchArray] #-}
 execMatch :: Uncons text => Regex -> Position -> Char -> text -> [MatchArray]
 execMatch (Regex { regex_dfa = DFA {d_dt=dtIn} })
           offsetIn _prevIn inputIn = S.runST goNext where
diff --git a/lib/Text/Regex/TDFA/NewDFA/Tester.hs b/lib/Text/Regex/TDFA/NewDFA/Tester.hs
index 3643170..049aec0 100644
--- a/lib/Text/Regex/TDFA/NewDFA/Tester.hs
+++ b/lib/Text/Regex/TDFA/NewDFA/Tester.hs
@@ -9,6 +9,8 @@ import qualified Data.IntSet as ISet(null)
 import Data.Sequence(Seq)
 import qualified Data.ByteString.Char8 as SBS(ByteString)
 import qualified Data.ByteString.Lazy.Char8 as LBS(ByteString)
+import qualified Data.Text as T
+import qualified Data.Text.Lazy as TL
 
 import Text.Regex.Base()
 import Text.Regex.TDFA.Common hiding (indent)
@@ -19,6 +21,8 @@ import Text.Regex.TDFA.NewDFA.MakeTest(test_singleline,test_multiline)
 {-# SPECIALIZE matchTest :: Regex -> (Seq Char) -> Bool #-}
 {-# SPECIALIZE matchTest :: Regex -> SBS.ByteString -> Bool #-}
 {-# SPECIALIZE matchTest :: Regex -> LBS.ByteString -> Bool #-}
+{-# SPECIALIZE matchTest :: Regex -> T.Text -> Bool #-}
+{-# SPECIALIZE matchTest :: Regex -> TL.Text -> Bool #-}
 matchTest :: Uncons text => Regex -> text -> Bool
 matchTest (Regex { regex_dfa = dfaIn
                  , regex_isFrontAnchored = ifa } )