878dcd3 · gogol · git.iko.soy

Renaming url* -> service*

commit878dcd3c9a099bc9e4f78b094453edf24f9fac98 authorBrendan Hay <brendan.g.hay@gmail.com> dateFri 30 Oct 2015, 14:29 (11 years ago) parent05f8e7f

2 files changed+6−6

unifiedsplit

gen/src/Gen/AST/Render.hs+2−2

@@ -117,8 +117,8 @@ renderAPI s = do

117117 url = name (serviceName s)

118118

119119 svc = Fun' url (Just (rawHelpText h))

120− <$> pp None (urlSig url)

121− <*> pp Print (urlDecl s url)

120+ <$> pp None (serviceSig url)

121+ <*> pp Print (serviceDecl s url)

122122 where

123123 h = sformat ("Default request referring to version @" % stext %

124124 "@ of the " % stext % ". This contains the host and root path used as a starting point for constructing service requests.")

gen/src/Gen/Syntax.hs+4−4

@@ -33,11 +33,11 @@ import Language.Haskell.Exts.Build

3333import Language.Haskell.Exts.SrcLoc

3434import Language.Haskell.Exts.Syntax hiding (Alt, Int, Lit)

3535

36−urlSig :: Name -> Decl

37−urlSig n = TypeSig noLoc [n] (TyCon "ServiceConfig")

36+serviceSig :: Name -> Decl

37+serviceSig n = TypeSig noLoc [n] (TyCon "Service")

3838

39−urlDecl :: Service a -> Name -> Decl

40−urlDecl s n = sfun noLoc n [] (UnGuardedRhs rhs) noBinds

39+serviceDecl :: Service a -> Name -> Decl

40+serviceDecl s n = sfun noLoc n [] (UnGuardedRhs rhs) noBinds

4141 where

4242 rhs = appFun (var "defaultService")

4343 [ app (var "ServiceId") (str (s ^. dId))