{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE LambdaCase #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE OverloadedStrings #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module Network.Google.Vision.Types.Sum where
import Network.Google.Prelude
data FaceAnnotationUnderExposedLikelihood
= Unknown
| VeryUnlikely
| Unlikely
| Possible
| Likely
| VeryLikely
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable FaceAnnotationUnderExposedLikelihood
instance FromHttpApiData FaceAnnotationUnderExposedLikelihood where
parseQueryParam = \case
"UNKNOWN" -> Right Unknown
"VERY_UNLIKELY" -> Right VeryUnlikely
"UNLIKELY" -> Right Unlikely
"POSSIBLE" -> Right Possible
"LIKELY" -> Right Likely
"VERY_LIKELY" -> Right VeryLikely
x -> Left ("Unable to parse FaceAnnotationUnderExposedLikelihood from: " <> x)
instance ToHttpApiData FaceAnnotationUnderExposedLikelihood where
toQueryParam = \case
Unknown -> "UNKNOWN"
VeryUnlikely -> "VERY_UNLIKELY"
Unlikely -> "UNLIKELY"
Possible -> "POSSIBLE"
Likely -> "LIKELY"
VeryLikely -> "VERY_LIKELY"
instance FromJSON FaceAnnotationUnderExposedLikelihood where
parseJSON = parseJSONText "FaceAnnotationUnderExposedLikelihood"
instance ToJSON FaceAnnotationUnderExposedLikelihood where
toJSON = toJSONText
data FaceAnnotationHeadwearLikelihood
= FAHLUnknown
| FAHLVeryUnlikely
| FAHLUnlikely
| FAHLPossible
| FAHLLikely
| FAHLVeryLikely
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable FaceAnnotationHeadwearLikelihood
instance FromHttpApiData FaceAnnotationHeadwearLikelihood where
parseQueryParam = \case
"UNKNOWN" -> Right FAHLUnknown
"VERY_UNLIKELY" -> Right FAHLVeryUnlikely
"UNLIKELY" -> Right FAHLUnlikely
"POSSIBLE" -> Right FAHLPossible
"LIKELY" -> Right FAHLLikely
"VERY_LIKELY" -> Right FAHLVeryLikely
x -> Left ("Unable to parse FaceAnnotationHeadwearLikelihood from: " <> x)
instance ToHttpApiData FaceAnnotationHeadwearLikelihood where
toQueryParam = \case
FAHLUnknown -> "UNKNOWN"
FAHLVeryUnlikely -> "VERY_UNLIKELY"
FAHLUnlikely -> "UNLIKELY"
FAHLPossible -> "POSSIBLE"
FAHLLikely -> "LIKELY"
FAHLVeryLikely -> "VERY_LIKELY"
instance FromJSON FaceAnnotationHeadwearLikelihood where
parseJSON = parseJSONText "FaceAnnotationHeadwearLikelihood"
instance ToJSON FaceAnnotationHeadwearLikelihood where
toJSON = toJSONText
data SafeSearchAnnotationAdult
= SSAAUnknown
| SSAAVeryUnlikely
| SSAAUnlikely
| SSAAPossible
| SSAALikely
| SSAAVeryLikely
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable SafeSearchAnnotationAdult
instance FromHttpApiData SafeSearchAnnotationAdult where
parseQueryParam = \case
"UNKNOWN" -> Right SSAAUnknown
"VERY_UNLIKELY" -> Right SSAAVeryUnlikely
"UNLIKELY" -> Right SSAAUnlikely
"POSSIBLE" -> Right SSAAPossible
"LIKELY" -> Right SSAALikely
"VERY_LIKELY" -> Right SSAAVeryLikely
x -> Left ("Unable to parse SafeSearchAnnotationAdult from: " <> x)
instance ToHttpApiData SafeSearchAnnotationAdult where
toQueryParam = \case
SSAAUnknown -> "UNKNOWN"
SSAAVeryUnlikely -> "VERY_UNLIKELY"
SSAAUnlikely -> "UNLIKELY"
SSAAPossible -> "POSSIBLE"
SSAALikely -> "LIKELY"
SSAAVeryLikely -> "VERY_LIKELY"
instance FromJSON SafeSearchAnnotationAdult where
parseJSON = parseJSONText "SafeSearchAnnotationAdult"
instance ToJSON SafeSearchAnnotationAdult where
toJSON = toJSONText
data FaceAnnotationAngerLikelihood
= FAALUnknown
| FAALVeryUnlikely
| FAALUnlikely
| FAALPossible
| FAALLikely
| FAALVeryLikely
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable FaceAnnotationAngerLikelihood
instance FromHttpApiData FaceAnnotationAngerLikelihood where
parseQueryParam = \case
"UNKNOWN" -> Right FAALUnknown
"VERY_UNLIKELY" -> Right FAALVeryUnlikely
"UNLIKELY" -> Right FAALUnlikely
"POSSIBLE" -> Right FAALPossible
"LIKELY" -> Right FAALLikely
"VERY_LIKELY" -> Right FAALVeryLikely
x -> Left ("Unable to parse FaceAnnotationAngerLikelihood from: " <> x)
instance ToHttpApiData FaceAnnotationAngerLikelihood where
toQueryParam = \case
FAALUnknown -> "UNKNOWN"
FAALVeryUnlikely -> "VERY_UNLIKELY"
FAALUnlikely -> "UNLIKELY"
FAALPossible -> "POSSIBLE"
FAALLikely -> "LIKELY"
FAALVeryLikely -> "VERY_LIKELY"
instance FromJSON FaceAnnotationAngerLikelihood where
parseJSON = parseJSONText "FaceAnnotationAngerLikelihood"
instance ToJSON FaceAnnotationAngerLikelihood where
toJSON = toJSONText
data SafeSearchAnnotationMedical
= SSAMUnknown
| SSAMVeryUnlikely
| SSAMUnlikely
| SSAMPossible
| SSAMLikely
| SSAMVeryLikely
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable SafeSearchAnnotationMedical
instance FromHttpApiData SafeSearchAnnotationMedical where
parseQueryParam = \case
"UNKNOWN" -> Right SSAMUnknown
"VERY_UNLIKELY" -> Right SSAMVeryUnlikely
"UNLIKELY" -> Right SSAMUnlikely
"POSSIBLE" -> Right SSAMPossible
"LIKELY" -> Right SSAMLikely
"VERY_LIKELY" -> Right SSAMVeryLikely
x -> Left ("Unable to parse SafeSearchAnnotationMedical from: " <> x)
instance ToHttpApiData SafeSearchAnnotationMedical where
toQueryParam = \case
SSAMUnknown -> "UNKNOWN"
SSAMVeryUnlikely -> "VERY_UNLIKELY"
SSAMUnlikely -> "UNLIKELY"
SSAMPossible -> "POSSIBLE"
SSAMLikely -> "LIKELY"
SSAMVeryLikely -> "VERY_LIKELY"
instance FromJSON SafeSearchAnnotationMedical where
parseJSON = parseJSONText "SafeSearchAnnotationMedical"
instance ToJSON SafeSearchAnnotationMedical where
toJSON = toJSONText
data FaceAnnotationBlurredLikelihood
= FABLUnknown
| FABLVeryUnlikely
| FABLUnlikely
| FABLPossible
| FABLLikely
| FABLVeryLikely
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable FaceAnnotationBlurredLikelihood
instance FromHttpApiData FaceAnnotationBlurredLikelihood where
parseQueryParam = \case
"UNKNOWN" -> Right FABLUnknown
"VERY_UNLIKELY" -> Right FABLVeryUnlikely
"UNLIKELY" -> Right FABLUnlikely
"POSSIBLE" -> Right FABLPossible
"LIKELY" -> Right FABLLikely
"VERY_LIKELY" -> Right FABLVeryLikely
x -> Left ("Unable to parse FaceAnnotationBlurredLikelihood from: " <> x)
instance ToHttpApiData FaceAnnotationBlurredLikelihood where
toQueryParam = \case
FABLUnknown -> "UNKNOWN"
FABLVeryUnlikely -> "VERY_UNLIKELY"
FABLUnlikely -> "UNLIKELY"
FABLPossible -> "POSSIBLE"
FABLLikely -> "LIKELY"
FABLVeryLikely -> "VERY_LIKELY"
instance FromJSON FaceAnnotationBlurredLikelihood where
parseJSON = parseJSONText "FaceAnnotationBlurredLikelihood"
instance ToJSON FaceAnnotationBlurredLikelihood where
toJSON = toJSONText
data SafeSearchAnnotationViolence
= SSAVUnknown
| SSAVVeryUnlikely
| SSAVUnlikely
| SSAVPossible
| SSAVLikely
| SSAVVeryLikely
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable SafeSearchAnnotationViolence
instance FromHttpApiData SafeSearchAnnotationViolence where
parseQueryParam = \case
"UNKNOWN" -> Right SSAVUnknown
"VERY_UNLIKELY" -> Right SSAVVeryUnlikely
"UNLIKELY" -> Right SSAVUnlikely
"POSSIBLE" -> Right SSAVPossible
"LIKELY" -> Right SSAVLikely
"VERY_LIKELY" -> Right SSAVVeryLikely
x -> Left ("Unable to parse SafeSearchAnnotationViolence from: " <> x)
instance ToHttpApiData SafeSearchAnnotationViolence where
toQueryParam = \case
SSAVUnknown -> "UNKNOWN"
SSAVVeryUnlikely -> "VERY_UNLIKELY"
SSAVUnlikely -> "UNLIKELY"
SSAVPossible -> "POSSIBLE"
SSAVLikely -> "LIKELY"
SSAVVeryLikely -> "VERY_LIKELY"
instance FromJSON SafeSearchAnnotationViolence where
parseJSON = parseJSONText "SafeSearchAnnotationViolence"
instance ToJSON SafeSearchAnnotationViolence where
toJSON = toJSONText
data FeatureType
= TypeUnspecified
| FaceDetection
| LandmarkDetection
| LogoDetection
| LabelDetection
| TextDetection
| SafeSearchDetection
| ImageProperties
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable FeatureType
instance FromHttpApiData FeatureType where
parseQueryParam = \case
"TYPE_UNSPECIFIED" -> Right TypeUnspecified
"FACE_DETECTION" -> Right FaceDetection
"LANDMARK_DETECTION" -> Right LandmarkDetection
"LOGO_DETECTION" -> Right LogoDetection
"LABEL_DETECTION" -> Right LabelDetection
"TEXT_DETECTION" -> Right TextDetection
"SAFE_SEARCH_DETECTION" -> Right SafeSearchDetection
"IMAGE_PROPERTIES" -> Right ImageProperties
x -> Left ("Unable to parse FeatureType from: " <> x)
instance ToHttpApiData FeatureType where
toQueryParam = \case
TypeUnspecified -> "TYPE_UNSPECIFIED"
FaceDetection -> "FACE_DETECTION"
LandmarkDetection -> "LANDMARK_DETECTION"
LogoDetection -> "LOGO_DETECTION"
LabelDetection -> "LABEL_DETECTION"
TextDetection -> "TEXT_DETECTION"
SafeSearchDetection -> "SAFE_SEARCH_DETECTION"
ImageProperties -> "IMAGE_PROPERTIES"
instance FromJSON FeatureType where
parseJSON = parseJSONText "FeatureType"
instance ToJSON FeatureType where
toJSON = toJSONText
data LandmarkType
= UnknownLandmark
| LeftEye
| RightEye
| LeftOfLeftEyebrow
| RightOfLeftEyebrow
| LeftOfRightEyebrow
| RightOfRightEyebrow
| MidpointBetweenEyes
| NoseTip
| UpperLip
| LowerLip
| MouthLeft
| MouthRight
| MouthCenter
| NoseBottomRight
| NoseBottomLeft
| NoseBottomCenter
| LeftEyeTopBoundary
| LeftEyeRightCorner
| LeftEyeBottomBoundary
| LeftEyeLeftCorner
| RightEyeTopBoundary
| RightEyeRightCorner
| RightEyeBottomBoundary
| RightEyeLeftCorner
| LeftEyebrowUpperMidpoint
| RightEyebrowUpperMidpoint
| LeftEarTragion
| RightEarTragion
| LeftEyePupil
| RightEyePupil
| ForeheadGlabella
| ChinGnathion
| ChinLeftGonion
| ChinRightGonion
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable LandmarkType
instance FromHttpApiData LandmarkType where
parseQueryParam = \case
"UNKNOWN_LANDMARK" -> Right UnknownLandmark
"LEFT_EYE" -> Right LeftEye
"RIGHT_EYE" -> Right RightEye
"LEFT_OF_LEFT_EYEBROW" -> Right LeftOfLeftEyebrow
"RIGHT_OF_LEFT_EYEBROW" -> Right RightOfLeftEyebrow
"LEFT_OF_RIGHT_EYEBROW" -> Right LeftOfRightEyebrow
"RIGHT_OF_RIGHT_EYEBROW" -> Right RightOfRightEyebrow
"MIDPOINT_BETWEEN_EYES" -> Right MidpointBetweenEyes
"NOSE_TIP" -> Right NoseTip
"UPPER_LIP" -> Right UpperLip
"LOWER_LIP" -> Right LowerLip
"MOUTH_LEFT" -> Right MouthLeft
"MOUTH_RIGHT" -> Right MouthRight
"MOUTH_CENTER" -> Right MouthCenter
"NOSE_BOTTOM_RIGHT" -> Right NoseBottomRight
"NOSE_BOTTOM_LEFT" -> Right NoseBottomLeft
"NOSE_BOTTOM_CENTER" -> Right NoseBottomCenter
"LEFT_EYE_TOP_BOUNDARY" -> Right LeftEyeTopBoundary
"LEFT_EYE_RIGHT_CORNER" -> Right LeftEyeRightCorner
"LEFT_EYE_BOTTOM_BOUNDARY" -> Right LeftEyeBottomBoundary
"LEFT_EYE_LEFT_CORNER" -> Right LeftEyeLeftCorner
"RIGHT_EYE_TOP_BOUNDARY" -> Right RightEyeTopBoundary
"RIGHT_EYE_RIGHT_CORNER" -> Right RightEyeRightCorner
"RIGHT_EYE_BOTTOM_BOUNDARY" -> Right RightEyeBottomBoundary
"RIGHT_EYE_LEFT_CORNER" -> Right RightEyeLeftCorner
"LEFT_EYEBROW_UPPER_MIDPOINT" -> Right LeftEyebrowUpperMidpoint
"RIGHT_EYEBROW_UPPER_MIDPOINT" -> Right RightEyebrowUpperMidpoint
"LEFT_EAR_TRAGION" -> Right LeftEarTragion
"RIGHT_EAR_TRAGION" -> Right RightEarTragion
"LEFT_EYE_PUPIL" -> Right LeftEyePupil
"RIGHT_EYE_PUPIL" -> Right RightEyePupil
"FOREHEAD_GLABELLA" -> Right ForeheadGlabella
"CHIN_GNATHION" -> Right ChinGnathion
"CHIN_LEFT_GONION" -> Right ChinLeftGonion
"CHIN_RIGHT_GONION" -> Right ChinRightGonion
x -> Left ("Unable to parse LandmarkType from: " <> x)
instance ToHttpApiData LandmarkType where
toQueryParam = \case
UnknownLandmark -> "UNKNOWN_LANDMARK"
LeftEye -> "LEFT_EYE"
RightEye -> "RIGHT_EYE"
LeftOfLeftEyebrow -> "LEFT_OF_LEFT_EYEBROW"
RightOfLeftEyebrow -> "RIGHT_OF_LEFT_EYEBROW"
LeftOfRightEyebrow -> "LEFT_OF_RIGHT_EYEBROW"
RightOfRightEyebrow -> "RIGHT_OF_RIGHT_EYEBROW"
MidpointBetweenEyes -> "MIDPOINT_BETWEEN_EYES"
NoseTip -> "NOSE_TIP"
UpperLip -> "UPPER_LIP"
LowerLip -> "LOWER_LIP"
MouthLeft -> "MOUTH_LEFT"
MouthRight -> "MOUTH_RIGHT"
MouthCenter -> "MOUTH_CENTER"
NoseBottomRight -> "NOSE_BOTTOM_RIGHT"
NoseBottomLeft -> "NOSE_BOTTOM_LEFT"
NoseBottomCenter -> "NOSE_BOTTOM_CENTER"
LeftEyeTopBoundary -> "LEFT_EYE_TOP_BOUNDARY"
LeftEyeRightCorner -> "LEFT_EYE_RIGHT_CORNER"
LeftEyeBottomBoundary -> "LEFT_EYE_BOTTOM_BOUNDARY"
LeftEyeLeftCorner -> "LEFT_EYE_LEFT_CORNER"
RightEyeTopBoundary -> "RIGHT_EYE_TOP_BOUNDARY"
RightEyeRightCorner -> "RIGHT_EYE_RIGHT_CORNER"
RightEyeBottomBoundary -> "RIGHT_EYE_BOTTOM_BOUNDARY"
RightEyeLeftCorner -> "RIGHT_EYE_LEFT_CORNER"
LeftEyebrowUpperMidpoint -> "LEFT_EYEBROW_UPPER_MIDPOINT"
RightEyebrowUpperMidpoint -> "RIGHT_EYEBROW_UPPER_MIDPOINT"
LeftEarTragion -> "LEFT_EAR_TRAGION"
RightEarTragion -> "RIGHT_EAR_TRAGION"
LeftEyePupil -> "LEFT_EYE_PUPIL"
RightEyePupil -> "RIGHT_EYE_PUPIL"
ForeheadGlabella -> "FOREHEAD_GLABELLA"
ChinGnathion -> "CHIN_GNATHION"
ChinLeftGonion -> "CHIN_LEFT_GONION"
ChinRightGonion -> "CHIN_RIGHT_GONION"
instance FromJSON LandmarkType where
parseJSON = parseJSONText "LandmarkType"
instance ToJSON LandmarkType where
toJSON = toJSONText
data Xgafv
= X1
| X2
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable Xgafv
instance FromHttpApiData Xgafv where
parseQueryParam = \case
"1" -> Right X1
"2" -> Right X2
x -> Left ("Unable to parse Xgafv from: " <> x)
instance ToHttpApiData Xgafv where
toQueryParam = \case
X1 -> "1"
X2 -> "2"
instance FromJSON Xgafv where
parseJSON = parseJSONText "Xgafv"
instance ToJSON Xgafv where
toJSON = toJSONText
data SafeSearchAnnotationSpoof
= SSASUnknown
| SSASVeryUnlikely
| SSASUnlikely
| SSASPossible
| SSASLikely
| SSASVeryLikely
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable SafeSearchAnnotationSpoof
instance FromHttpApiData SafeSearchAnnotationSpoof where
parseQueryParam = \case
"UNKNOWN" -> Right SSASUnknown
"VERY_UNLIKELY" -> Right SSASVeryUnlikely
"UNLIKELY" -> Right SSASUnlikely
"POSSIBLE" -> Right SSASPossible
"LIKELY" -> Right SSASLikely
"VERY_LIKELY" -> Right SSASVeryLikely
x -> Left ("Unable to parse SafeSearchAnnotationSpoof from: " <> x)
instance ToHttpApiData SafeSearchAnnotationSpoof where
toQueryParam = \case
SSASUnknown -> "UNKNOWN"
SSASVeryUnlikely -> "VERY_UNLIKELY"
SSASUnlikely -> "UNLIKELY"
SSASPossible -> "POSSIBLE"
SSASLikely -> "LIKELY"
SSASVeryLikely -> "VERY_LIKELY"
instance FromJSON SafeSearchAnnotationSpoof where
parseJSON = parseJSONText "SafeSearchAnnotationSpoof"
instance ToJSON SafeSearchAnnotationSpoof where
toJSON = toJSONText
data FaceAnnotationSurpriseLikelihood
= FASLUnknown
| FASLVeryUnlikely
| FASLUnlikely
| FASLPossible
| FASLLikely
| FASLVeryLikely
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable FaceAnnotationSurpriseLikelihood
instance FromHttpApiData FaceAnnotationSurpriseLikelihood where
parseQueryParam = \case
"UNKNOWN" -> Right FASLUnknown
"VERY_UNLIKELY" -> Right FASLVeryUnlikely
"UNLIKELY" -> Right FASLUnlikely
"POSSIBLE" -> Right FASLPossible
"LIKELY" -> Right FASLLikely
"VERY_LIKELY" -> Right FASLVeryLikely
x -> Left ("Unable to parse FaceAnnotationSurpriseLikelihood from: " <> x)
instance ToHttpApiData FaceAnnotationSurpriseLikelihood where
toQueryParam = \case
FASLUnknown -> "UNKNOWN"
FASLVeryUnlikely -> "VERY_UNLIKELY"
FASLUnlikely -> "UNLIKELY"
FASLPossible -> "POSSIBLE"
FASLLikely -> "LIKELY"
FASLVeryLikely -> "VERY_LIKELY"
instance FromJSON FaceAnnotationSurpriseLikelihood where
parseJSON = parseJSONText "FaceAnnotationSurpriseLikelihood"
instance ToJSON FaceAnnotationSurpriseLikelihood where
toJSON = toJSONText
data FaceAnnotationSorrowLikelihood
= FUnknown
| FVeryUnlikely
| FUnlikely
| FPossible
| FLikely
| FVeryLikely
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable FaceAnnotationSorrowLikelihood
instance FromHttpApiData FaceAnnotationSorrowLikelihood where
parseQueryParam = \case
"UNKNOWN" -> Right FUnknown
"VERY_UNLIKELY" -> Right FVeryUnlikely
"UNLIKELY" -> Right FUnlikely
"POSSIBLE" -> Right FPossible
"LIKELY" -> Right FLikely
"VERY_LIKELY" -> Right FVeryLikely
x -> Left ("Unable to parse FaceAnnotationSorrowLikelihood from: " <> x)
instance ToHttpApiData FaceAnnotationSorrowLikelihood where
toQueryParam = \case
FUnknown -> "UNKNOWN"
FVeryUnlikely -> "VERY_UNLIKELY"
FUnlikely -> "UNLIKELY"
FPossible -> "POSSIBLE"
FLikely -> "LIKELY"
FVeryLikely -> "VERY_LIKELY"
instance FromJSON FaceAnnotationSorrowLikelihood where
parseJSON = parseJSONText "FaceAnnotationSorrowLikelihood"
instance ToJSON FaceAnnotationSorrowLikelihood where
toJSON = toJSONText
data FaceAnnotationJoyLikelihood
= FAJLUnknown
| FAJLVeryUnlikely
| FAJLUnlikely
| FAJLPossible
| FAJLLikely
| FAJLVeryLikely
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable FaceAnnotationJoyLikelihood
instance FromHttpApiData FaceAnnotationJoyLikelihood where
parseQueryParam = \case
"UNKNOWN" -> Right FAJLUnknown
"VERY_UNLIKELY" -> Right FAJLVeryUnlikely
"UNLIKELY" -> Right FAJLUnlikely
"POSSIBLE" -> Right FAJLPossible
"LIKELY" -> Right FAJLLikely
"VERY_LIKELY" -> Right FAJLVeryLikely
x -> Left ("Unable to parse FaceAnnotationJoyLikelihood from: " <> x)
instance ToHttpApiData FaceAnnotationJoyLikelihood where
toQueryParam = \case
FAJLUnknown -> "UNKNOWN"
FAJLVeryUnlikely -> "VERY_UNLIKELY"
FAJLUnlikely -> "UNLIKELY"
FAJLPossible -> "POSSIBLE"
FAJLLikely -> "LIKELY"
FAJLVeryLikely -> "VERY_LIKELY"
instance FromJSON FaceAnnotationJoyLikelihood where
parseJSON = parseJSONText "FaceAnnotationJoyLikelihood"
instance ToJSON FaceAnnotationJoyLikelihood where
toJSON = toJSONText