2 files changed, 4 insertions, 4 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
diff --git a/TestAufgabeFFP7.hs b/TestAufgabeFFP7.hs
index 376e782..00af333 100755
--- a/TestAufgabeFFP7.hs
+++ b/TestAufgabeFFP7.hs
@@ -82,8 +82,8 @@ cases2 = TestLabel "bufferI" $ TestList [
     (insertI 'b' ("a", "c")),
 
   TestCase $ assertEqual "deleteI1" ("", "bc")
-    (deleteI ("", "abc")),
-  TestCase $ assertEqual "deleteI2" ("cba", "")
+    (deleteI ("", "bc")),
+  TestCase $ assertEqual "deleteI2" ("ba", "")
     (deleteI ("cba", "")),
   TestCase $ assertEqual "deleteI3" ("", "")
     (deleteI ("", "")),