getContainerValueType :: Type -> Type
getContainerValueType TStr          = TChar
getContainerValueType :: Type -> Type
getContainerValueType TStr          = TChar
getContainerValueType TStr          = TChar