[Type-constraints] Removed unnecessary definitions

2016-01-19 22:52:06 +03:00
parent 960a49c1ed
commit 39659b2917
2 changed files with 0 additions and 10 deletions
--- a/Language/Haskell/GhcMod/Gap.hs
+++ b/Language/Haskell/GhcMod/Gap.hs
@@ -316,13 +316,11 @@ setWarnTypedHoles = id
 ----------------------------------------------------------------

 class HasType a where
-    getId   :: GhcMonad m => TypecheckedModule -> a -> m ([Id])
    getType :: GhcMonad m => TypecheckedModule -> a -> m (Maybe (SrcSpan, Type))


 instance HasType (LHsBind Id) where
 #if __GLASGOW_HASKELL__ >= 708
-    getId _ b = return $ collectHsBindBinders (unLoc b)
    getType _ (L spn FunBind{fun_matches = m}) = return $ Just (spn, typ)
      where in_tys = mg_arg_tys m
            out_typ = mg_res_ty m