Re-adding Service suffix to disambiguate
commit8dd754f4ca6d00205c893ec96829bbbac6ac2659
authorBrendan Hay <brendan.g.hay@gmail.com>
dateFri 16 Oct 2015, 09:39 (11 years ago)
parentd48b7ee
gen/src/Gen/Types/Schema.hs+1−1
@@ -435,7 +435,7 @@ instance HasDescription (Service a) a where
435435 description = sDescription
436436
437437serviceName :: Service a -> String
438−serviceName = Text.unpack . toCamel . _sCanonicalName
438+serviceName = Text.unpack . (<> "Service") . toCamel . _sCanonicalName
439439
440440scopeName :: Service a -> Text -> String
441441scopeName s k =