diff --git a/src/Data/Language.hs b/src/Data/Language.hs index 444a2b491..e1b6e74fe 100644 --- a/src/Data/Language.hs +++ b/src/Data/Language.hs @@ -77,12 +77,6 @@ instance SLanguage 'TypeScript where instance SLanguage 'PHP where reflect _ = PHP - --- This ensures that the protobuf file is generated with ALL_CAPS_NAMES. -instance Finite Language where - enumerate _ = fmap go [Unknown ..] where - go x = (fromString (fmap toUpper (show x)), fromEnum x) - instance FromJSON Language where parseJSON = withText "Language" $ \l -> pure $ fromMaybe Unknown (parseLanguage l)