From 9b8deee05d2598ecedce6b5ad5cda144f20ac255 Mon Sep 17 00:00:00 2001 From: manuel Date: Tue, 22 May 2012 00:51:59 +0200 Subject: totycro said: fix buffer::insert --- AufgabeFFP7.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'AufgabeFFP7.hs') diff --git a/AufgabeFFP7.hs b/AufgabeFFP7.hs index 091cb49..4ac8ebd 100644 --- a/AufgabeFFP7.hs +++ b/AufgabeFFP7.hs @@ -13,7 +13,7 @@ empty = (0, "") -- insert character before cursor insert :: Char -> Buffer -> Buffer -insert c (cur, buf) = (min (length buf + 1) (max (cur - 1) 0), buf1 ++ [c] ++ buf2) +insert c (cur, buf) = (min (length buf + 1) (max (cur + 1) 1), buf1 ++ [c] ++ buf2) where (buf1, buf2) = splitAt cur buf -- cgit v1.2.3