1 files changed, 4 insertions, 4 deletions

diff --git a/AufgabeFFP7.hs b/AufgabeFFP7.hs
index 43e8014..099eda8 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 cur (length buf1), buf1)
+  | buf2 == "" = (min cur (length buf1), buf1)
   | cur < 0 = (0, buf)
   | otherwise = (cur, buf1 ++ tail buf2)
   where
@@ -57,17 +57,17 @@ insertI c (beforeC, afterC) = ([c] ++ beforeC, afterC)
 -- delete character before cursor
 deleteI :: BufferI -> BufferI
 deleteI (beforeC, "") = (beforeC, "")
-deleteI (beforeC, last:afterC) = (beforeC, afterC)
+deleteI (beforeC, c:afterC) = (beforeC, afterC)
 
 -- move cursor left one character
 leftI :: BufferI -> BufferI
 leftI ("", afterC) = ("", afterC)
-leftI (last:beforeC, afterC) = (beforeC, [last] ++ afterC)
+leftI (c:beforeC, afterC) = (beforeC, [c] ++ afterC)
 
 -- move cursor right one character
 rightI :: BufferI -> BufferI
 rightI (beforeC, "") = (beforeC, "")
-rightI (beforeC, last:afterC) = ([last] ++ beforeC, afterC)
+rightI (beforeC, c:afterC) = ([c] ++ beforeC, afterC)
 
 -- is cursor at left end?
 atLeftI :: BufferI -> Bool