diff options
| author | Pepe Iborra <mnislaih@gmail.com> | 2007-01-20 20:11:05 +0000 |
|---|---|---|
| committer | Pepe Iborra <mnislaih@gmail.com> | 2007-01-20 20:11:05 +0000 |
| commit | 5cceab60a792e0d05a544135d1d65b1255645970 (patch) | |
| tree | 0aa03cd4be6a59c3673bf9338ce6a184e7e115e8 /compiler/ghci/Debugger.hs | |
| parent | 9a37b33443be07667867dabb5b67b1319231e648 (diff) | |
| download | haskell-5cceab60a792e0d05a544135d1d65b1255645970.tar.gz | |
Fix a bug in the closure viewer
Diffstat (limited to 'compiler/ghci/Debugger.hs')
| -rw-r--r-- | compiler/ghci/Debugger.hs | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/compiler/ghci/Debugger.hs b/compiler/ghci/Debugger.hs index 071e370228..9f0684c7f4 100644 --- a/compiler/ghci/Debugger.hs +++ b/compiler/ghci/Debugger.hs @@ -260,7 +260,6 @@ stripUnknowns :: [Name] -> Id -> Id stripUnknowns names id = setIdType id . sigmaType . fst . go names . idType $ id where - sigmaType ty = mkForAllTys (varSetElems$ tyVarsOfType (dropForAlls ty)) ty go tyvarsNames@(v:vv) ty | Just (ty1,ty2) <- splitFunTy_maybe ty = let (ty1',vv') = go tyvarsNames ty1 |