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 ()