git.iko.soy/typeable/servant
on master help sign in
servant-docs: Fix docsWith.
3565641Philipp Kant
servant-docs/src/Servant/Docs/Internal.hs+1−1
compare with master
unifiedsplit
@@ -338,7 +338,7 @@ extraInfo p action =
338docsWith :: HasDocs layout => [DocIntro] -> ExtraInfo layout -> Proxy layout -> API
338docsWith :: HasDocs layout => [DocIntro] -> ExtraInfo layout -> Proxy layout -> API
339docsWith intros (ExtraInfo endpoints) p =
339docsWith intros (ExtraInfo endpoints) p =
340 docs p & apiIntros <>~ intros
340 docs p & apiIntros <>~ intros
341− & apiEndpoints %~ HM.unionWith combineAction endpoints
341+ & apiEndpoints %~ HM.unionWith (flip combineAction) endpoints
342
342
343
343
344-- | Generate the docs for a given API that implements 'HasDocs' with with any
344-- | Generate the docs for a given API that implements 'HasDocs' with with any