@@ -760,9 +760,9 @@ markdownWith RenderingOptions{..} api = unlines $
760760
761761 contentStr mime_type body =
762762 "" :
763− " ```" <> markdownForType mime_type :
763+ "```" <> markdownForType mime_type :
764764 cs body :
765− " ```" :
765+ "```" :
766766 "" :
767767 []
768768
@@ -866,7 +866,6 @@ instance {-# OVERLAPPABLE #-}
866866 t = Proxy :: Proxy '[ct]
867867 method' = reflectMethod (Proxy :: Proxy method)
868868 status = fromInteger $ natVal (Proxy :: Proxy status)
869− p = Proxy :: Proxy a
870869
871870instance {-# OVERLAPPING #-}
872871 (ToSample a, AllMimeRender (ct ': cts) a, KnownNat status