From 45cfb83e7a74121f8847f73fdc522f5785470733 Mon Sep 17 00:00:00 2001 From: totycro Date: Wed, 23 May 2012 10:48:40 +0200 Subject: Minor corrections --- AufgabeFFP7.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'AufgabeFFP7.hs') 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 -- cgit v1.2.3