@@ -106,18 +106,21 @@ render svc = do
106106 sub l = \case
107107 t@(Top rs) -> do
108108 let k = nname l
109− t <- Action k <$> pp Print (apiAlias k (nouns t))
109+ t <- Action k Nothing
110+ <$> pp Print (apiAlias k (nouns t))
110111 as <- traverse (uncurry sub) (Map.toList rs) <&> concat
111112 return (t : as)
112113
113114 Sub ms -> do
114115 let k = nname l
115− t <- Action k <$> pp Print (apiAlias k (map (vname l) $ Map.keys ms))
116+ t <- Action k Nothing
117+ <$> pp Print (apiAlias k (map (vname l) $ Map.keys ms))
116118 as <- traverse (uncurry (verb l)) (Map.toList ms)
117119 return (t : as)
118120
119121 verb :: Local -> Local -> Method -> AST Action
120− verb p l m = Action (vname p l) <$> pp Print (verbDecl svc p l m)
122+ verb p l m = Action (vname p l) (_mDescription m)
123+ <$> pp Print (verbDecl svc p l m)
121124
122125flatten :: Service (Fix Schema) Resource -> Service (Schema Id) Resource
123126flatten svc = svc { _svcSchemas = execState run mempty }