From a3ba420fb4d39cba38eae85635a006ef11262f4c Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Mon, 30 May 2016 14:04:36 -0400 Subject: [PATCH] Revert ":memo: `showRational`." This reverts commit eff9eb21f0b91f4abc58624268cfd51233424511. --- src/Renderer/Split.hs | 1 - 1 file changed, 1 deletion(-) diff --git a/src/Renderer/Split.hs b/src/Renderer/Split.hs index 13df30524..d8bce3f12 100644 --- a/src/Renderer/Split.hs +++ b/src/Renderer/Split.hs @@ -127,7 +127,6 @@ instance ToMarkup a => ToMarkup (Renderable (Bool, Int, a)) where <> td (toMarkup line) ! A.class_ (stringValue $ if hasChanges then "blob-code blob-code-replacement" else "blob-code") <> string "\n" --- | Show round `Rational` values as equivalent `Integer`s, falling back to the `Show` instance for other values. showRational :: Rational -> String showRational n = maybe (show n) show (toRoundIntegral n) where toRoundIntegral :: Rational -> Maybe Integer