add files for lecture 7's homework

1 files changed, 11 insertions, 0 deletions

diff --git a/lec07/StringBufEditor.hs b/lec07/StringBufEditor.hs
new file mode 100644
index 0000000..e40cc5e
--- /dev/null
+++ b/lec07/StringBufEditor.hs
@@ -0,0 +1,11 @@
+module Main where
+
+import StringBuffer
+import Editor
+
+main = runEditor editor $ unlines
+         [ "This buffer is for notes you don't want to save, and for"
+         , "evaluation of steam valve coefficients."
+         , "To load a different file, type the character L followed"
+         , "by the name of the file."
+         ]