diff options
| author | manuel <manuel@mausz.at> | 2012-05-22 00:51:59 +0200 |
|---|---|---|
| committer | manuel <manuel@mausz.at> | 2012-05-22 00:51:59 +0200 |
| commit | 9b8deee05d2598ecedce6b5ad5cda144f20ac255 (patch) | |
| tree | 506dfc2e62aff4b5420315744e77bc33e4c5d282 /AufgabeFFP7.hs | |
| parent | 85ac51660b298681ba3dcaee9def5f1e5f2c5284 (diff) | |
| download | ffp-9b8deee05d2598ecedce6b5ad5cda144f20ac255.tar.gz ffp-9b8deee05d2598ecedce6b5ad5cda144f20ac255.tar.bz2 ffp-9b8deee05d2598ecedce6b5ad5cda144f20ac255.zip | |
totycro said: fix buffer::insert
Diffstat (limited to 'AufgabeFFP7.hs')
| -rw-r--r-- | AufgabeFFP7.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/AufgabeFFP7.hs b/AufgabeFFP7.hs index 091cb49..4ac8ebd 100644 --- a/AufgabeFFP7.hs +++ b/AufgabeFFP7.hs | |||
| @@ -13,7 +13,7 @@ empty = (0, "") | |||
| 13 | 13 | ||
| 14 | -- insert character before cursor | 14 | -- insert character before cursor |
| 15 | insert :: Char -> Buffer -> Buffer | 15 | insert :: Char -> Buffer -> Buffer |
| 16 | insert c (cur, buf) = (min (length buf + 1) (max (cur - 1) 0), buf1 ++ [c] ++ buf2) | 16 | insert c (cur, buf) = (min (length buf + 1) (max (cur + 1) 1), buf1 ++ [c] ++ buf2) |
| 17 | where | 17 | where |
| 18 | (buf1, buf2) = splitAt cur buf | 18 | (buf1, buf2) = splitAt cur buf |
| 19 | 19 | ||