1 files changed, 1 insertions, 1 deletions

diff --git a/AufgabeFFP7.hs b/AufgabeFFP7.hs
index 091cb49..4ac8ebd 100644
--- a/AufgabeFFP7.hs
+++ b/AufgabeFFP7.hs
@@ -13,7 +13,7 @@ empty = (0, "")
 
 -- insert character before cursor
 insert :: Char -> Buffer -> Buffer
-insert c (cur, buf) = (min (length buf + 1) (max (cur - 1) 0), buf1 ++ [c] ++ buf2)
+insert c (cur, buf) = (min (length buf + 1) (max (cur + 1) 1), buf1 ++ [c] ++ buf2)
   where
     (buf1, buf2) = splitAt cur buf