fix silly bug preventing structs from being converting

This commit is contained in:
Zachary Snow 2019-03-30 03:32:08 -04:00
parent 317994ed3a
commit a059b6e83c
1 changed files with 1 additions and 1 deletions

View File

@ -89,7 +89,7 @@ collectType (Struct (Packed sg) fields _) = do
isComplex (Alias _ _) = True isComplex (Alias _ _) = True
isComplex _ = False isComplex _ = False
canUnstructure = canUnstructure =
all (head fieldClasses ==) (map show fieldClasses) && all (head fieldClasses ==) fieldClasses &&
not (any isComplex fieldTypes) not (any isComplex fieldTypes)
collectType _ = return () collectType _ = return ()