diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2018-05-21 09:00:32 +0100 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2018-05-21 13:04:09 +0100 |
| commit | b7e80ae005d0072eda79135c371a794dc48f70e1 (patch) | |
| tree | d58ed53143606ea688e5e1a5e175a5725625393e /compiler/deSugar/DsBinds.hs | |
| parent | 5f3fb71213e78838cd3060be37ad2d9dd1ed247f (diff) | |
| download | haskell-b7e80ae005d0072eda79135c371a794dc48f70e1.tar.gz | |
Remove TcType.toTcType
In the olden days we insisted that only TcTyVars could appear
in a TcType. But now we are more accommodating; see TcType
Note [TcTyVars and TyVars in the typechecker]
This patch removes a function that converted a Type to a TcType.
It didn't do anything useful except statisfy an invariant that
we no longer have. Now it's gone.
Diffstat (limited to 'compiler/deSugar/DsBinds.hs')
| -rw-r--r-- | compiler/deSugar/DsBinds.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/deSugar/DsBinds.hs b/compiler/deSugar/DsBinds.hs index ad666a2ce2..4684d436a4 100644 --- a/compiler/deSugar/DsBinds.hs +++ b/compiler/deSugar/DsBinds.hs @@ -181,7 +181,7 @@ dsHsBind dflags (AbsBinds { abs_tvs = tyvars, abs_ev_vars = dicts , abs_exports = exports , abs_ev_binds = ev_binds , abs_binds = binds, abs_sig = has_sig }) - = do { ds_binds <- addDictsDs (toTcTypeBag (listToBag dicts)) $ + = do { ds_binds <- addDictsDs (listToBag dicts) $ dsLHsBinds binds -- addDictsDs: push type constraints deeper -- for inner pattern match check |