abstractCollectFunctionWithUnqualifiedType :: (HsQualType -> Bool) -> HsModule -> [String]
abstractCollectFunctionWithUnqualifiedType fun = getTupleFunctionNameType 
  >>> filterSnd fun
  >>> map fst
abstractCollectFunctionWithUnqualifiedType :: (HsQualType -> Bool) -> HsModule -> [String]
abstractCollectFunctionWithUnqualifiedType fun = getTupleFunctionNameType 
  >>> filterSnd fun
  >>> map fst
abstractCollectFunctionWithUnqualifiedType fun = getTupleFunctionNameType 
  >>> filterSnd fun
  >>> map fst