From a2f8c2c9b40f029cf3e2abd40d300e94cc2a1f77 Mon Sep 17 00:00:00 2001 From: Robert Soeldner Date: Sat, 29 Sep 2018 17:49:06 +0200 Subject: [PATCH] Fix markdown code indent, drop unused var --- servant-docs/src/Servant/Docs/Internal.hs | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/servant-docs/src/Servant/Docs/Internal.hs b/servant-docs/src/Servant/Docs/Internal.hs index 452176c5..42fb4f61 100644 --- a/servant-docs/src/Servant/Docs/Internal.hs +++ b/servant-docs/src/Servant/Docs/Internal.hs @@ -760,9 +760,9 @@ markdownWith RenderingOptions{..} api = unlines $ contentStr mime_type body = "" : - " ```" <> markdownForType mime_type : + "```" <> markdownForType mime_type : cs body : - " ```" : + "```" : "" : [] @@ -866,7 +866,6 @@ instance {-# OVERLAPPABLE #-} t = Proxy :: Proxy '[ct] method' = reflectMethod (Proxy :: Proxy method) status = fromInteger $ natVal (Proxy :: Proxy status) - p = Proxy :: Proxy a instance {-# OVERLAPPING #-} (ToSample a, AllMimeRender (ct ': cts) a, KnownNat status