From: simonmar <unknown>
Date: Wed, 22 Nov 2000 11:12:52 +0000 (+0000)
Subject: [project @ 2000-11-22 11:12:52 by simonmar]
X-Git-Tag: Approximately_9120_patches~3269
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=b382ce6f044cbea2af7c2489bd8c0f95f7cc724c;p=ghc-hetmet.git

[project @ 2000-11-22 11:12:52 by simonmar]
typos
---

diff --git a/ghc/compiler/ghci/InteractiveUI.hs b/ghc/compiler/ghci/InteractiveUI.hs
index 5bd2ab1..3c663ec 100644
--- a/ghc/compiler/ghci/InteractiveUI.hs
+++ b/ghc/compiler/ghci/InteractiveUI.hs
@@ -1,5 +1,5 @@
 -----------------------------------------------------------------------------
--- $Id: InteractiveUI.hs,v 1.11 2000/11/22 10:56:53 simonmar Exp $
+-- $Id: InteractiveUI.hs,v 1.12 2000/11/22 11:12:52 simonmar Exp $
 --
 -- GHC Interactive User Interface
 --
@@ -65,7 +65,7 @@ helpText = "\
 \   :load <filename>    load a module (and it dependents)\n\ 
 \   :module <mod>	set the context for expression evaluation to <mod>\n\ 
 \   :reload		reload the current module set\n\ 
-\   :set <opetion> ...	set options\n\ 
+\   :set <option> ...	set options\n\ 
 \   :type <expr>	show the type of <expr>\n\ 
 \   :quit		exit GHCi\n\ 
 \   :!<command>		run the shell command <command>\n\ 
@@ -146,7 +146,7 @@ specialCommand ('!':str) = shellEscape (dropWhile isSpace str)
 specialCommand str = do
   let (cmd,rest) = break isSpace str
   case [ (s,f) | (s,f) <- commands, prefixMatch cmd s ] of
-     []      -> io $ hPutStr stdout ("uknown command `:" ++ cmd ++ "'\n" 
+     []      -> io $ hPutStr stdout ("unknown command `:" ++ cmd ++ "'\n" 
 				    ++ shortHelpText)
      [(_,f)] -> f (dropWhile isSpace rest)
      cs      -> io $ hPutStrLn stdout ("prefix " ++ cmd ++