Fix markdown code indent, drop unused var
This commit is contained in:
parent
c85f99f2b1
commit
a2f8c2c9b4
1 changed files with 2 additions and 3 deletions
|
@ -760,9 +760,9 @@ markdownWith RenderingOptions{..} api = unlines $
|
||||||
|
|
||||||
contentStr mime_type body =
|
contentStr mime_type body =
|
||||||
"" :
|
"" :
|
||||||
" ```" <> markdownForType mime_type :
|
"```" <> markdownForType mime_type :
|
||||||
cs body :
|
cs body :
|
||||||
" ```" :
|
"```" :
|
||||||
"" :
|
"" :
|
||||||
[]
|
[]
|
||||||
|
|
||||||
|
@ -866,7 +866,6 @@ instance {-# OVERLAPPABLE #-}
|
||||||
t = Proxy :: Proxy '[ct]
|
t = Proxy :: Proxy '[ct]
|
||||||
method' = reflectMethod (Proxy :: Proxy method)
|
method' = reflectMethod (Proxy :: Proxy method)
|
||||||
status = fromInteger $ natVal (Proxy :: Proxy status)
|
status = fromInteger $ natVal (Proxy :: Proxy status)
|
||||||
p = Proxy :: Proxy a
|
|
||||||
|
|
||||||
instance {-# OVERLAPPING #-}
|
instance {-# OVERLAPPING #-}
|
||||||
(ToSample a, AllMimeRender (ct ': cts) a, KnownNat status
|
(ToSample a, AllMimeRender (ct ': cts) a, KnownNat status
|
||||||
|
|
Loading…
Reference in a new issue