Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : ghc-7.6
http://hackage.haskell.org/trac/ghc/changeset/5133bb97a47340a9008615e412fcf62f7762bea8 >--------------------------------------------------------------- commit 5133bb97a47340a9008615e412fcf62f7762bea8 Author: Simon Peyton Jones <[email protected]> Date: Wed Aug 22 18:01:57 2012 +0100 Allocate a fresh META unique in newMetaKindVar Fixes Trac #7176 on the branch. HEAD has a better fix (the big patch to untouchable handling) >--------------------------------------------------------------- compiler/typecheck/TcMType.lhs | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/compiler/typecheck/TcMType.lhs b/compiler/typecheck/TcMType.lhs index 60bee0b..2817ea9 100644 --- a/compiler/typecheck/TcMType.lhs +++ b/compiler/typecheck/TcMType.lhs @@ -113,7 +113,7 @@ import Data.List ( (\\), partition, mapAccumL ) \begin{code} newMetaKindVar :: TcM TcKind -newMetaKindVar = do { uniq <- newUnique +newMetaKindVar = do { uniq <- newMetaUnique ; ref <- newMutVar Flexi ; return (mkTyVarTy (mkMetaKindVar uniq ref)) } _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
