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