github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-27 17:05:33 +03:00
Code Issues Projects Releases Wiki Activity

Revert "📝 showRational."

Browse Source 
This reverts commit eff9eb21f0b91f4abc58624268cfd51233424511.
This commit is contained in:
Rob Rix 2016-05-30 14:04:36 -04:00
parent 8e45e5973d
commit a3ba420fb4
1 changed files with 0 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/Renderer/Split.hs
View File

@ -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