Make Unboxed vectors of tuples strict in their components
[darcs-mirrors/vector.git] / internal / GenUnboxTuple.hs
index fe447c2..11b145a 100644 (file)
@@ -44,7 +44,7 @@ generate n =
       = hang (hsep [text "data instance", text ty, tuple vars])
              4
              (hsep [char '=', con c, text "{-# UNPACK #-} !Int"
-                   , vcat $ map (\v -> parens (text ty <+> v)) vars])
+                   , vcat $ map (\v -> char '!' <> parens (text ty <+> v)) vars])
 
     class_instance cls
       = text "instance" <+> vtuple [text "Unbox" <+> v | v <- vars]