instance FromJSON Tag where
    parseJSON (AesonTypes.Array v)
        | V.length v == 3 = case v ! 0 of
            Text "p" -> ETag <$> ((,) <$> parseJSON (v ! 1) <*> parseJSON (v ! 2)
            Text "e" -> PTag <$> ((,) <$> parseJSON (v ! 1) <*> parseJSON (v ! 2)
            _          -> mzero
        | otherwise = mzero
    parseJSON _ = mzero