@@ -439,6 +439,10 @@ t_break_start (NotEmpty s) t = let (_,m) = T.break s t
439439 in T.null m || s `T.isPrefixOf` m
440440tl_break_start (NotEmpty s) t = let (_,m) = TL.break s t
441441 in TL.null m || s `TL.isPrefixOf` m
442+t_breakEnd_end (NotEmpty s) t = let (m,_) = T.breakEnd s t
443+ in T.null m || s `T.isSuffixOf` m
444+tl_breakEnd_end (NotEmpty s) t = let (m,_) = TL.breakEnd s t
445+ in TL.null m || s `TL.isSuffixOf` m
442446t_breakBy p = L.break p `eqP` (unpack2 . T.breakBy p)
443447tl_breakBy p = L.break p `eqP` (unpack2 . TL.breakBy p)
444448t_group = L.group `eqP` (map unpackS . T.group)
@@ -942,6 +946,8 @@ tests = [
942946 testProperty "tl_break_id" tl_break_id,
943947 testProperty "t_break_start" t_break_start,
944948 testProperty "tl_break_start" tl_break_start,
949+ testProperty "t_breakEnd_end" t_breakEnd_end,
950+ testProperty "tl_breakEnd_end" tl_breakEnd_end,
945951 testProperty "t_breakBy" t_breakBy,
946952 testProperty "tl_breakBy" tl_breakBy,
947953 testProperty "t_group" t_group,