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