ref: 69c8b971023710b43def1408f09e74d72d516a77
parent: 1b58ced57a161d6a8746abc62aa07ad6c483cd3e
author: Lennart Augustsson <lennart@augustsson.net>
date: Thu Nov 2 09:08:47 EDT 2023
Fix typo
--- a/src/MicroHs/Interactive.hs
+++ b/src/MicroHs/Interactive.hs
@@ -97,7 +97,7 @@
helpText :: String
-helpText = "Commands:\n :quit quit MicroHs\n :reload reload modules\n:clear clear all definitions\n :delete d delete definition(s) d\n :help this text\n expr evaluate expression\n defn add top level definition\n"
+helpText = "Commands:\n :quit quit MicroHs\n :reload reload modules\n :clear clear all definitions\n :delete d delete definition(s) d\n :help this text\n expr evaluate expression\n defn add top level definition\n"
updateLines :: (String -> String) -> I ()
updateLines f = S.modify $ \ (ls, flgs, cache) -> (f ls, flgs, cache)
--
⑨