on develop help sign in
Formatting
77d83e9Brendan Hay
gen/src/Gen/Types/Schema.hs+2−2
@@ -439,8 +439,8 @@ serviceName = Text.unpack . (<> "Service") . toCamel . _sCanonicalName
439
439
440scopeName :: Service a -> Text -> String
440scopeName :: Service a -> Text -> String
441scopeName s k =
441scopeName s k =
442− let y = _sCanonicalName s <> "AllScope"
442+ let y = _sCanonicalName s <> "AllScope"
443− in Text.unpack . toCamel $
443+ in Text.unpack . toCamel $
444 case Text.split (== '/') k of
444 case Text.split (== '/') k of
445 [] -> y
445 [] -> y
446 xs -> case last xs of
446 xs -> case last xs of