From a059b6e83c830b5a83bbb0dfa036eec4eb32cddf Mon Sep 17 00:00:00 2001 From: Zachary Snow Date: Sat, 30 Mar 2019 03:32:08 -0400 Subject: [PATCH] fix silly bug preventing structs from being converting --- src/Convert/Struct.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Convert/Struct.hs b/src/Convert/Struct.hs index c477162..10f37f9 100644 --- a/src/Convert/Struct.hs +++ b/src/Convert/Struct.hs @@ -89,7 +89,7 @@ collectType (Struct (Packed sg) fields _) = do isComplex (Alias _ _) = True isComplex _ = False canUnstructure = - all (head fieldClasses ==) (map show fieldClasses) && + all (head fieldClasses ==) fieldClasses && not (any isComplex fieldTypes) collectType _ = return ()