git.iko.soy/servant
on master help sign in
Fix markdown code indent, drop unused var
a2f8c2cRobert Soeldner
servant-docs/src/Servant/Docs/Internal.hs+2−3
compare with master
unifiedsplit
@@ -760,9 +760,9 @@ markdownWith RenderingOptions{..} api = unlines $
760
760
761 contentStr mime_type body =
761 contentStr mime_type body =
762 "" :
762 "" :
763− " ```" <> markdownForType mime_type :
763+ "```" <> markdownForType mime_type :
764 cs body :
764 cs body :
765− " ```" :
765+ "```" :
766 "" :
766 "" :
767 []
767 []
768
768
@@ -866,7 +866,6 @@ instance {-# OVERLAPPABLE #-}
866 t = Proxy :: Proxy '[ct]
866 t = Proxy :: Proxy '[ct]
867 method' = reflectMethod (Proxy :: Proxy method)
867 method' = reflectMethod (Proxy :: Proxy method)
868 status = fromInteger $ natVal (Proxy :: Proxy status)
868 status = fromInteger $ natVal (Proxy :: Proxy status)
869− p = Proxy :: Proxy a
870
869
871instance {-# OVERLAPPING #-}
870instance {-# OVERLAPPING #-}
872 (ToSample a, AllMimeRender (ct ': cts) a, KnownNat status
871 (ToSample a, AllMimeRender (ct ': cts) a, KnownNat status