Commit d9e43906 authored by simonpj@microsoft.com's avatar simonpj@microsoft.com
Browse files

Tiny optimisation/simplification to FunDeps.grow

parent 8672676c
......@@ -153,7 +153,7 @@ See also Note [Ambiguity] in TcSimplify
\begin{code}
grow :: [PredType] -> TyVarSet -> TyVarSet
grow preds fixed_tvs
| null preds = real_fixed_tvs
| null preds = fixed_tvs
| otherwise = loop real_fixed_tvs
where
-- Add the implicit parameters;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment