on develop help sign in
Re-adding Service suffix to disambiguate
8dd754fBrendan Hay
gen/src/Gen/Types/Schema.hs+1−1
@@ -435,7 +435,7 @@ instance HasDescription (Service a) a where
435 description = sDescription
435 description = sDescription
436
436
437serviceName :: Service a -> String
437serviceName :: Service a -> String
438−serviceName = Text.unpack . toCamel . _sCanonicalName
438+serviceName = Text.unpack . (<> "Service") . toCamel . _sCanonicalName
439
439
440scopeName :: Service a -> Text -> String
440scopeName :: Service a -> Text -> String
441scopeName s k =
441scopeName s k =