diff options
| -rw-r--r-- | lec07/JoinList.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lec07/JoinList.hs b/lec07/JoinList.hs index db74811..0d62d94 100644 --- a/lec07/JoinList.hs +++ b/lec07/JoinList.hs @@ -2,6 +2,7 @@ module JoinList where import Buffer +import Editor import Scrabble import Sized @@ -95,7 +96,7 @@ instance Buffer (JoinList (Score, Size) String) where value jl = getScore $ foldJ 0 (\s -> scoreString s) (\x y -> x <> y) jl where getScore (Score s) = s -initialLines :: [String] +initialLines :: String initialLines = "This is the first line.\n" ++ "Then this, which is the second line.\n" ++ |