diff options
Diffstat (limited to 'lec07/JoinList.hs')
| -rw-r--r-- | lec07/JoinList.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lec07/JoinList.hs b/lec07/JoinList.hs index 0d62d94..1f356c9 100644 --- a/lec07/JoinList.hs +++ b/lec07/JoinList.hs @@ -89,7 +89,7 @@ instance Buffer (JoinList (Score, Size) String) where line = indexJ - replaceLine n ln jl = (takeJ (n-1) jl) +++ (Single (scoreString ln, 1) ln) +++ (dropJ n jl) + replaceLine n ln jl = (takeJ (n-2) jl) +++ (Single (scoreString ln, 1) ln) +++ (dropJ n jl) numLines = foldJ 0 (\_ -> 1) (\x y -> x + y) |