@@ -959,7 +959,7 @@ instance (ToJSON a, ToJSON b, ToJSON c, ToJSON d, ToJSON e, ToJSON f,
959 ToJSON m, ToJSON n, ToJSON o) =>
959 ToJSON m, ToJSON n, ToJSON o) =>
960 ToJSON (a,b,c,d,e,f,g,h,i,j,k,l,m,n,o) where
960 ToJSON (a,b,c,d,e,f,g,h,i,j,k,l,m,n,o) where
961 toJSON (a,b,c,d,e,f,g,h,i,j,k,l,m,n,o) = Array $ V.create $ do
961 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
963 VM.unsafeWrite mv 0 (toJSON a)
963 VM.unsafeWrite mv 0 (toJSON a)
964 VM.unsafeWrite mv 1 (toJSON b)
964 VM.unsafeWrite mv 1 (toJSON b)
965 VM.unsafeWrite mv 2 (toJSON c)
965 VM.unsafeWrite mv 2 (toJSON c)
@@ -986,7 +986,7 @@ instance (FromJSON a, FromJSON b, FromJSON c, FromJSON d, FromJSON e,
986 let n = V.length ary
986 let n = V.length ary
987 in if n /= 15
987 in if n /= 15
988 then fail $ "cannot unpack array of length " ++
988 then fail $ "cannot unpack array of length " ++
989− show n ++ " into a 14-tuple"
989+ show n ++ " into a 15-tuple"
990 else (,,,,,,,,,,,,,,)
990 else (,,,,,,,,,,,,,,)
991 <$> parseJSON (V.unsafeIndex ary 0)
991 <$> parseJSON (V.unsafeIndex ary 0)
992 <*> parseJSON (V.unsafeIndex ary 1)
992 <*> parseJSON (V.unsafeIndex ary 1)