Garmelon/mima-tools
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix formatting of negative numbers

Browse source
This commit is contained in:
Joscha 2019-11-25 23:03:58 +00:00
parent f415595a40
commit d082bc939e
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/Mima/Format/Common.hs
View file

@ -33,12 +33,12 @@ toDec = T.pack . show
toHex :: (Integral a, Show a) => a -> T.Text toHex :: (Integral a, Show a) => a -> T.Text
toHex a = T.pack $ showHex a "" toHex a = T.pack $ showHex a ""
-- | @'negative' a@ interprets @a@ as @a - 'maxBound'@ if @a@ is greater than -- | @'negative' a@ interprets @a@ as @a - 'maxBound' - 1@ if @a@ is greater
-- @'maxBound' `div` 2@, and as a positive number otherwise. 'minBound' is -- than @'maxBound' `div` 2@, and as a positive number otherwise. 'minBound' is
-- ignored. -- ignored.
negative :: (Integral a, Bounded a, Show a) => (a -> T.Text) -> a -> T.Text negative :: (Integral a, Bounded a, Show a) => (a -> T.Text) -> a -> T.Text
negative f a negative f a
| a > maxBound `div` 2 = "-" <> f (-(a - maxBound)) | a > maxBound `div` 2 = "-" <> f (-(a - maxBound - 1))
| otherwise = f a | otherwise = f a
chunkedBy :: T.Text -> Int -> T.Text -> T.Text chunkedBy :: T.Text -> Int -> T.Text -> T.Text