add break

1 files changed, 14 insertions, 0 deletions

diff --git a/src/Blessings.hs b/src/Blessings.hs
index 9602bf4..ebf14e2 100644
--- a/src/Blessings.hs
+++ b/src/Blessings.hs
@@ -433,6 +433,20 @@ instance (Eq a, Blessable a) => Blessable (Blessings a) where
       Empty ->
         (Empty, Empty)
 
+  break p = \case
+      Append t1 t2 ->
+        both normalizeHead $
+          case Bless.break p t1 of
+            (t1l, t1r)
+              | t1r == mempty -> first (t1l<>) $ Bless.break p t2
+              | otherwise -> (t1l, t1r <> t2)
+      Plain s ->
+        both (normalizeHead . Plain) $ Bless.break p s
+      SGR pm t ->
+        both (normalizeHead . SGR pm) $ Bless.break p t
+      Empty ->
+        (Empty, Empty)
+
   intercalate i = \case
       [] -> mempty
       [t] -> t