typedef conversion gracefully skips yet-unknown typenames

This commit is contained in:
Zachary Snow 2019-09-14 20:59:41 -04:00
parent e27d6920a7
commit c5f7f2cc5e
1 changed files with 1 additions and 1 deletions

View File

@ -93,6 +93,6 @@ resolveType types (Alias Nothing st rs1) =
(Struct p l rs2) -> Struct p l $ rs1 ++ rs2
(Union p l rs2) -> Union p l $ rs1 ++ rs2
(InterfaceT x my rs2) -> InterfaceT x my $ rs1 ++ rs2
(Alias ps x rs2) -> Alias ps x $ rs1 ++ rs2
(IntegerAtom kw _ ) -> error $ "resolveType encountered packed `" ++ (show kw) ++ "` on " ++ st
(NonInteger kw ) -> error $ "resolveType encountered packed `" ++ (show kw) ++ "` on " ++ st
(Alias _ _ _) -> error $ "resolveType invariant failed on " ++ st