diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2018-09-13 17:47:50 +0100 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2018-09-13 17:47:50 +0100 |
| commit | 8533428b1734eb6f249d350ed8fe7882d212792a (patch) | |
| tree | 64a0ad6e5a7ed88d28af4dda55f4dbbf9737b70a | |
| parent | 02edb8f2f973a8df26cfb6dfab0ef99a832f711f (diff) | |
| download | haskell-8533428b1734eb6f249d350ed8fe7882d212792a.tar.gz | |
Remove dead variable binding
Fallout from earlier commit, sorry.
| -rw-r--r-- | compiler/typecheck/TcValidity.hs | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/compiler/typecheck/TcValidity.hs b/compiler/typecheck/TcValidity.hs index b58c1ba74e..351d0e1035 100644 --- a/compiler/typecheck/TcValidity.hs +++ b/compiler/typecheck/TcValidity.hs @@ -1115,14 +1115,13 @@ We can also have instances for functions: @instance Foo (a -> b) ...@. checkValidInstHead :: UserTypeCtxt -> Class -> [Type] -> TcM () checkValidInstHead ctxt clas cls_args = do { dflags <- getDynFlags - ; this_mod <- getModule ; is_boot <- tcIsHsBootOrSig - ; check_valid_inst_head dflags this_mod is_boot ctxt clas cls_args } + ; check_valid_inst_head dflags is_boot ctxt clas cls_args } -check_valid_inst_head :: DynFlags -> Module -> Bool +check_valid_inst_head :: DynFlags -> Bool -> UserTypeCtxt -> Class -> [Type] -> TcM () -- Wow! There are a surprising number of ad-hoc special cases here. -check_valid_inst_head dflags this_mod is_boot ctxt clas cls_args +check_valid_inst_head dflags is_boot ctxt clas cls_args -- If not in an hs-boot file, abstract classes cannot have instances | isAbstractClass clas |