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