[project @ 2001-06-26 16:30:50 by rrt]
authorrrt <unknown>
Tue, 26 Jun 2001 16:30:50 +0000 (16:30 +0000)
committerrrt <unknown>
Tue, 26 Jun 2001 16:30:50 +0000 (16:30 +0000)
Fix typos

ghc/compiler/main/DriverMkDepend.hs
ghc/compiler/main/DriverPipeline.hs

index 948dbf1..e218044 100644 (file)
@@ -1,5 +1,5 @@
 -----------------------------------------------------------------------------
--- $Id: DriverMkDepend.hs,v 1.12 2001/06/14 12:50:06 simonpj Exp $
+-- $Id: DriverMkDepend.hs,v 1.13 2001/06/26 16:30:50 rrt Exp $
 --
 -- GHC Driver
 --
@@ -146,7 +146,7 @@ endMkDependHS = do
      Nothing  -> return ()
      Just hdl -> do
 
-         -- slurp the rest of the orignal makefile and copy it into the output
+         -- slurp the rest of the original makefile and copy it into the output
        let slurp = do
                l <- hGetLine hdl
                hPutStrLn tmp_hdl l
@@ -172,7 +172,7 @@ findDependency is_source src imp = do
    dir_contents <- readIORef v_Dep_dir_contents
    ignore_dirs  <- readIORef v_Dep_ignore_dirs
    excl_mods    <- readIORef v_Dep_exclude_mods
-   hisuf <- readIORef v_Hi_suf
+   hisuf        <- readIORef v_Hi_suf
 
    let
      imp_mod      = moduleNameUserString imp
index 1821ede..af517ca 100644 (file)
@@ -1,5 +1,5 @@
 -----------------------------------------------------------------------------
--- $Id: DriverPipeline.hs,v 1.81 2001/06/25 01:35:07 sof Exp $
+-- $Id: DriverPipeline.hs,v 1.82 2001/06/26 16:30:50 rrt Exp $
 --
 -- GHC Driver
 --
@@ -342,7 +342,7 @@ run_phase Cpp basename suff input_fn output_fn
                            ++ md_c_flags
                            ++ [ "-x", "c", input_fn, "-o", output_fn ])
 
-       -- ToDo: switch away from using 'echo' alltogether (but need
+       -- ToDo: switch away from using 'echo' altogether (but need
        -- a faster alternative than what's done below).
 #if defined(mingw32_TARGET_OS) && defined(MINIMAL_UNIX_DEPS)
          else (do