diff options
| -rw-r--r-- | 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 a212f2506d..67ed96731d 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)) } |