fix silly bug preventing structs from being converting

2019-03-30 03:32:08 -04:00 · 2019-03-30 03:32:08 -04:00 · a059b6e83c
parent 317994ed3a
commit a059b6e83c
1 changed files with 1 additions and 1 deletions
--- 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 ()