Owothia graduates, or something. Mostly I don't want infrastructure to depend on stuff in //users. Does anyone know where owothia is running anyways? Change-Id: I198c7ac935736c7aee3ba4fbda1453b82aa10283 Reviewed-on: https://cl.tvl.fyi/c/depot/+/3103 Tested-by: BuildkiteCI Reviewed-by: grfn <grfn@gws.fyi>
		
			
				
	
	
		
			40 lines
		
	
	
	
		
			1.4 KiB
		
	
	
	
		
			Diff
		
	
	
	
	
	
			
		
		
	
	
			40 lines
		
	
	
	
		
			1.4 KiB
		
	
	
	
		
			Diff
		
	
	
	
	
	
diff --git a/Text/Regex/TDFA/Text.hs b/Text/Regex/TDFA/Text.hs
 | 
						|
index c4ef9db..9299272 100644
 | 
						|
--- a/Text/Regex/TDFA/Text.hs
 | 
						|
+++ b/Text/Regex/TDFA/Text.hs
 | 
						|
@@ -38,13 +38,6 @@ import Text.Regex.TDFA.NewDFA.Uncons(Uncons(uncons))
 | 
						|
 import qualified Text.Regex.TDFA.NewDFA.Engine as Engine(execMatch)
 | 
						|
 import qualified Text.Regex.TDFA.NewDFA.Tester as Tester(matchTest)
 | 
						|
 
 | 
						|
-instance Extract T.Text where
 | 
						|
-  before = T.take; after = T.drop; empty = T.empty
 | 
						|
-
 | 
						|
-instance Uncons T.Text where
 | 
						|
-  {- INLINE uncons #-}
 | 
						|
-  uncons = T.uncons
 | 
						|
-
 | 
						|
 instance RegexContext Regex T.Text T.Text where
 | 
						|
   match = polymatch
 | 
						|
   matchM = polymatchM
 | 
						|
diff --git a/Text/Regex/TDFA/Text/Lazy.hs b/Text/Regex/TDFA/Text/Lazy.hs
 | 
						|
index 73ca4a0..52958fb 100644
 | 
						|
--- a/Text/Regex/TDFA/Text/Lazy.hs
 | 
						|
+++ b/Text/Regex/TDFA/Text/Lazy.hs
 | 
						|
@@ -38,17 +38,10 @@ import Text.Regex.TDFA.NewDFA.Uncons(Uncons(uncons))
 | 
						|
 import qualified Text.Regex.TDFA.NewDFA.Engine as Engine(execMatch)
 | 
						|
 import qualified Text.Regex.TDFA.NewDFA.Tester as Tester(matchTest)
 | 
						|
 
 | 
						|
-instance Extract L.Text where
 | 
						|
-  before = L.take . toEnum; after = L.drop . toEnum; empty = L.empty
 | 
						|
-
 | 
						|
 instance RegexContext Regex L.Text L.Text where
 | 
						|
   match = polymatch
 | 
						|
   matchM = polymatchM
 | 
						|
 
 | 
						|
-instance Uncons L.Text where
 | 
						|
-  {- INLINE uncons #-}
 | 
						|
-  uncons = L.uncons
 | 
						|
-
 | 
						|
 instance RegexMaker Regex CompOption ExecOption L.Text where
 | 
						|
   makeRegexOptsM c e source = makeRegexOptsM c e (L.unpack source)
 | 
						|
 
 |