From 9ce708481e2e7a6de542383da71c715fe69380c1 Mon Sep 17 00:00:00 2001 From: manuel Date: Tue, 22 May 2012 12:38:56 +0200 Subject: veeery minor: raising the prettiness :D --- AufgabeFFP7.hs | 8 ++++---- 1 file 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 -- cgit v1.2.3