From 31578b9bfac374b61c3f8ccb8b1e24727fe4eb4d Mon Sep 17 00:00:00 2001 From: Ivan Lazar Miljenovic Date: Fri, 28 Jul 2017 16:39:52 +1000 Subject: [PATCH] Make defAction's documentation visible to Haddock --- servant-docs/src/Servant/Docs/Internal.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/servant-docs/src/Servant/Docs/Internal.hs b/servant-docs/src/Servant/Docs/Internal.hs index f253715e..6f98c208 100644 --- a/servant-docs/src/Servant/Docs/Internal.hs +++ b/servant-docs/src/Servant/Docs/Internal.hs @@ -263,8 +263,8 @@ combineAction :: Action -> Action -> Action Action a c h p n m ts body resp `combineAction` Action a' c' h' p' n' m' _ _ _ = Action (a <> a') (c <> c') (h <> h') (p <> p') (n <> n') (m <> m') ts body resp --- Default 'Action'. Has no 'captures', no GET 'params', expects --- no request body ('rqbody') and the typical response is 'defResponse'. +-- | Default 'Action'. Has no 'captures', no GET 'params', expects no +-- request body ('rqbody') and the typical response is 'defResponse'. -- -- Tweakable with lenses. --