Commit 96088030 authored by batterseapower's avatar batterseapower
Browse files

Minor refactoring in RtClosureInspect

parent 4787a076
......@@ -445,7 +445,7 @@ cPprTermBase y =
isTupleTy ty = fromMaybe False $ do
(tc,_) <- splitTyConApp_maybe ty
return (tc `elem` (fst.unzip.elems) boxedTupleArr)
return (isBoxedTupleTyCon tc)
isTyCon a_tc ty = fromMaybe False $ do
(tc,_) <- splitTyConApp_maybe ty
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment