@@ -959,7 +959,7 @@ instance (ToJSON a, ToJSON b, ToJSON c, ToJSON d, ToJSON e, ToJSON f,
959959 ToJSON m, ToJSON n, ToJSON o) =>
960960 ToJSON (a,b,c,d,e,f,g,h,i,j,k,l,m,n,o) where
961961 toJSON (a,b,c,d,e,f,g,h,i,j,k,l,m,n,o) = Array $ V.create $ do
962− mv <- VM.unsafeNew 14
962+ mv <- VM.unsafeNew 15
963963 VM.unsafeWrite mv 0 (toJSON a)
964964 VM.unsafeWrite mv 1 (toJSON b)
965965 VM.unsafeWrite mv 2 (toJSON c)
@@ -986,7 +986,7 @@ instance (FromJSON a, FromJSON b, FromJSON c, FromJSON d, FromJSON e,
986986 let n = V.length ary
987987 in if n /= 15
988988 then fail $ "cannot unpack array of length " ++
989− show n ++ " into a 14-tuple"
989+ show n ++ " into a 15-tuple"
990990 else (,,,,,,,,,,,,,,)
991991 <$> parseJSON (V.unsafeIndex ary 0)
992992 <*> parseJSON (V.unsafeIndex ary 1)