@@ -93,7 +93,7 @@ end (TextZipper lb b a la) = TextZipper lb (b <> a) "" la
93top :: TextZipper -> TextZipper
93top :: TextZipper -> TextZipper
94top (TextZipper lb b a la) = case reverse lb of
94top (TextZipper lb b a la) = case reverse lb of
95 [] -> TextZipper [] "" (b <> a) la
95 [] -> TextZipper [] "" (b <> a) la
96− (start:rest) -> TextZipper [] "" start (rest <> la)
96+ (start:rest) -> TextZipper [] "" start (rest <> [b <> a] <> la)
98-- | Insert a character at the current cursor position
98-- | Insert a character at the current cursor position
99insertChar :: Char -> TextZipper -> TextZipper
99insertChar :: Char -> TextZipper -> TextZipper