[commit: ghc] master: Typos in comments (80bdb88)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/80bdb88e9f379c3e0dd3c2281ee2ea315e1b8a5f/ghc

>---------------------------------------------------------------

commit 80bdb88e9f379c3e0dd3c2281ee2ea315e1b8a5f
Author: Gabor Greif <ggreif at gmail.com>
Date:   Sun Apr 13 13:57:15 2014 +0200

    Typos in comments


>---------------------------------------------------------------

80bdb88e9f379c3e0dd3c2281ee2ea315e1b8a5f
 compiler/cmm/CmmSink.hs            |    2 +-
 compiler/typecheck/TcCanonical.lhs |    2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/compiler/cmm/CmmSink.hs b/compiler/cmm/CmmSink.hs
index c404a2e..187f4c4 100644
--- a/compiler/cmm/CmmSink.hs
+++ b/compiler/cmm/CmmSink.hs
@@ -516,7 +516,7 @@ conflicts :: DynFlags -> Assignment -> CmmNode O x -> Bool
 conflicts dflags (r, rhs, addr) node
 
   -- (1) node defines registers used by rhs of assignment. This catches
-  -- assignmnets and all three kinds of calls. See Note [Sinking and calls]
+  -- assignments and all three kinds of calls. See Note [Sinking and calls]
   | globalRegistersConflict dflags rhs node                       = True
   | localRegistersConflict  dflags rhs node                       = True
 
diff --git a/compiler/typecheck/TcCanonical.lhs b/compiler/typecheck/TcCanonical.lhs
index 9eecc47..5784d81 100644
--- a/compiler/typecheck/TcCanonical.lhs
+++ b/compiler/typecheck/TcCanonical.lhs
@@ -554,7 +554,7 @@ synonym.  This works because TcTyConAppCo can deal with synonyms
 
 But (Trac #8979) for
    type T a = (F a, a)    where F is a type function
-we must expand the synonym in (say) T Int, to expose the type functoin
+we must expand the synonym in (say) T Int, to expose the type function
 to the flattener.