git.iko.soy/typeable/aeson
on master help sign in
Do not accept trailing characters after parsing a version in the FromJSON Version instance..
95dcd70Daniel Díaz
Data/Aeson/Types/Instances.hs+1−1
compare with master
unifiedsplit
@@ -1479,7 +1479,7 @@ instance FromJSON Version where
1479 {-# INLINE parseJSON #-}
1479 {-# INLINE parseJSON #-}
1480 parseJSON = withText "Version" $ go . readP_to_S parseVersion . unpack
1480 parseJSON = withText "Version" $ go . readP_to_S parseVersion . unpack
1481 where
1481 where
1482− go [(v,_)] = return v
1482+ go [(v,[])] = return v
1483 go (_ : xs) = go xs
1483 go (_ : xs) = go xs
1484 go _ = fail $ "could not parse Version"
1484 go _ = fail $ "could not parse Version"
1485
1485