fix silly bug preventing structs from being converting

2026-09-02 19:29:42 +02:00 · 2019-03-30 03:32:08 -04:00
parent 317994ed3a
commit a059b6e83c
1 changed files with 1 additions and 1 deletions
@@ -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 ()