Commit a059b6e8 by Zachary Snow

fix silly bug preventing structs from being converting

parent 317994ed
...@@ -89,7 +89,7 @@ collectType (Struct (Packed sg) fields _) = do ...@@ -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 ()
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment