typeLinkingName :: TypeNode -> [[String]] -> SemanticUnit -> Name -> [Type]
typeLinkingName db imps su (Name cname@(nm:remain)) = case typeLinkingName' db imps su (Name cname) of
                                                        [] -> typeLinkingFailure $ "Link Name failure: " ++ (show cname)
                                                        tps -> tps
typeLinkingName :: TypeNode -> [[String]] -> SemanticUnit -> Name -> [Type]
typeLinkingName db imps su (Name cname@(nm:remain)) = case typeLinkingName' db imps su (Name cname) of
                                                        [] -> typeLinkingFailure $ "Link Name failure: " ++ (show cname)
                                                        tps -> tps
typeLinkingName db imps su (Name cname@(nm:remain)) = case typeLinkingName' db imps su (Name cname) of
                                                        [] -> typeLinkingFailure $ "Link Name failure: " ++ (show cname)
                                                        tps -> tps