1 files changed, 2 insertions, 2 deletions

diff --git a/AufgabeFFP7.hs b/AufgabeFFP7.hs
index e2a7d65..c7f88b7 100644
--- a/AufgabeFFP7.hs
+++ b/AufgabeFFP7.hs
@@ -20,7 +20,7 @@ insert c (cur, buf) = (min (length buf + 1) (max (cur + 1) 1), buf1 ++ [c] ++ bu
 -- delete character before cursor
 delete :: Buffer -> Buffer
 delete (cur, buf)
-  | buf2 == "" = (min newCur (length buf1), buf1)
+  | buf2 == "" = (max 0 (min newCur (length buf1)), buf1)
   | newCur < 0 = (0, buf)
   | otherwise = (newCur, buf1 ++ tail buf2)
   where
@@ -57,7 +57,7 @@ insertI c (beforeC, afterC) = (c:beforeC, afterC)
 
 -- delete character before cursor
 deleteI :: BufferI -> BufferI
-deleteI (beforeC, "") = (beforeC, "")
+deleteI ("", afterC) = ("", afterC)
 deleteI (c:beforeC, afterC) = (beforeC, afterC)
 
 -- move cursor left one character