Fix a comment typo

diff --git a/compiler/typecheck/TcUnify.lhs b/compiler/typecheck/TcUnify.lhs
index 84d79f6..9d60cf5 100644 (file)
--- a/compiler/typecheck/TcUnify.lhs
+++ b/compiler/typecheck/TcUnify.lhs
@@ -84,7 +84,7 @@ tcInfer tc_infer = withBox openTypeKind tc_infer
 %************************************************************************
 
 \begin{code}
 %************************************************************************
 
 \begin{code}

-subFunTys :: SDoc  -- Somthing like "The function f has 3 arguments"
+subFunTys :: SDoc  -- Something like "The function f has 3 arguments"

                    -- or "The abstraction (\x.e) takes 1 argument"
           -> Arity              -- Expected # of args
           -> BoxyRhoType        -- res_ty
                    -- or "The abstraction (\x.e) takes 1 argument"
           -> Arity              -- Expected # of args
           -> BoxyRhoType        -- res_ty