@@ -1106,7 +1106,7 @@ breakEnd pat src = let (a,b) = break (reverse pat) (reverse src)
11061106find :: Text -- ^ @needle@ to search for
11071107 -> Text -- ^ @haystack@ in which to search
11081108 -> [(Text, Text)]
1109−find pat@(Text _ _ plen) src@(Text arr off slen)
1109+find pat src@(Text arr off slen)
11101110 | null pat = emptyError "find"
11111111 | otherwise = L.map step (indices pat src)
11121112 where