howTyConApp (MkDataCon "ghc-prim:GHC.Types.:" [] ((_,tvar_ty):_)) ptrs = showList tvar_ty ptrs

showTyConApp (MkDataCon "ghc-prim:GHC.Types.:" [] ((_,tvar_ty):_)) ptrs = showList tvar_ty ptrs
showTyConApp (MkDataCon "ghc-prim:GHC.Types.:" [] ((_,tvar_ty):_)) ptrs = showList tvar_ty ptrs