[commit: ghc] master: Remove unused exports (21d0bfe)
git at git.haskell.org
git at git.haskell.org
Mon Sep 12 15:21:54 UTC 2016
Repository : ssh://git@git.haskell.org/ghc
On branch : master
Link : http://ghc.haskell.org/trac/ghc/changeset/21d0bfe1ab6618059fc161816047070eb9eda312/ghc
>---------------------------------------------------------------
commit 21d0bfe1ab6618059fc161816047070eb9eda312
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date: Sun Sep 4 21:58:20 2016 +0100
Remove unused exports
>---------------------------------------------------------------
21d0bfe1ab6618059fc161816047070eb9eda312
compiler/typecheck/TcSMonad.hs | 11 +++--------
1 file changed, 3 insertions(+), 8 deletions(-)
diff --git a/compiler/typecheck/TcSMonad.hs b/compiler/typecheck/TcSMonad.hs
index f6b72eb..fb03ec2 100644
--- a/compiler/typecheck/TcSMonad.hs
+++ b/compiler/typecheck/TcSMonad.hs
@@ -66,7 +66,7 @@ module TcSMonad (
-- Inert CDictCans
lookupInertDict, findDictsByClass, addDict, addDictsByClass,
- delDict, partitionDicts, foldDicts, filterDicts,
+ delDict, foldDicts, filterDicts,
-- Inert CTyEqCans
EqualCtList, findTyEqs, foldTyEqs, isInInertEqs,
@@ -81,8 +81,8 @@ module TcSMonad (
lookupFlatCache, extendFlatCache, newFlattenSkolem, -- Flatten skolems
-- Inert CFunEqCans
- updInertFunEqs, findFunEq, sizeFunEqMap, filterFunEqs,
- findFunEqsByTyCon, partitionFunEqs, foldFunEqs,
+ updInertFunEqs, findFunEq, sizeFunEqMap,
+ findFunEqsByTyCon,
instDFunType, -- Instantiation
@@ -2224,11 +2224,6 @@ filterFunEqs = filterTcAppMap
insertFunEq :: FunEqMap a -> TyCon -> [Type] -> a -> FunEqMap a
insertFunEq m tc tys val = insertTcApp m (getUnique tc) tys val
--- insertFunEqCt :: FunEqMap Ct -> Ct -> FunEqMap Ct
--- insertFunEqCt m ct@(CFunEqCan { cc_fun = tc, cc_tyargs = tys })
--- = insertFunEq m tc tys ct
--- insertFunEqCt _ ct = pprPanic "insertFunEqCt" (ppr ct)
-
partitionFunEqs :: (Ct -> Bool) -> FunEqMap Ct -> ([Ct], FunEqMap Ct)
-- Optimise for the case where the predicate is false
-- partitionFunEqs is called only from kick-out, and kick-out usually
More information about the ghc-commits
mailing list