Control.Monad.Free.TH: Delete redundant bndrName function

Its functionality is subsumed by `tyVarBndrName`.
ekmett · May 24, 2020 · 4856d26 · 4856d26
1 parent dff8d0b
commit 4856d26
Showing 1 changed file with 1 addition and 4 deletions.
diff --git a/src/Control/Monad/Free/TH.hs b/src/Control/Monad/Free/TH.hs
@@ -184,10 +184,7 @@ unifyCaptured _ xs = fail $ unlines
   , unlines (map (pprint . fst) xs) ]
 
 extractVars :: Type -> [Name]
-extractVars (ForallT bs _ t) = extractVars t \\ map bndrName bs
-  where
-    bndrName (PlainTV n) = n
-    bndrName (KindedTV n _) = n
+extractVars (ForallT bs _ t) = extractVars t \\ map tyVarBndrName bs
 extractVars (VarT n) = [n]
 extractVars (AppT x y) = extractVars x ++ extractVars y
 #if MIN_VERSION_template_haskell(2,8,0)