fix missing import and function type for fourth exercise

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" ++