diff options
author | Simon Peyton Jones <simonpj@microsoft.com> | 2013-11-18 18:09:28 +0000 |
---|---|---|
committer | Simon Peyton Jones <simonpj@microsoft.com> | 2013-11-18 18:09:50 +0000 |
commit | 54c5fde9010021214ac5ad88cb80a94fb8014747 (patch) | |
tree | 46b8dab97b77703523646d79b9e18a6725b07b15 /compiler/typecheck/TcCanonical.lhs | |
parent | 98d0d818598accc77f295c8f3d23cc8ffd0761da (diff) | |
download | haskell-54c5fde9010021214ac5ad88cb80a94fb8014747.tar.gz |
Fix typo in a836b6, 'Improve orientation'
Just a straightforward error, now fixed.
Diffstat (limited to 'compiler/typecheck/TcCanonical.lhs')
-rw-r--r-- | compiler/typecheck/TcCanonical.lhs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/typecheck/TcCanonical.lhs b/compiler/typecheck/TcCanonical.lhs index 1850fdf0ff..b49e0b9b24 100644 --- a/compiler/typecheck/TcCanonical.lhs +++ b/compiler/typecheck/TcCanonical.lhs @@ -1031,8 +1031,8 @@ reOrient (VarCls tv1) (VarCls tv2) tv2 `better_than` tv1 | isMetaTyVar tv1 = False -- Never swap a meta-tyvar | isFlatSkolTyVar tv1 = isMetaTyVar tv2 - | otherwise = isMetaTyVar tv1 || isFlatSkolTyVar tv2 - -- Note [Eliminate flat-skols] + | otherwise = isMetaTyVar tv2 || isFlatSkolTyVar tv2 + -- Note [Eliminate flat-skols] ------------------ |