mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

exhaustiveness check fix

Browse source
This commit is contained in:
Joey Hess 2023-11-20 21:34:29 -04:00
parent 06fa528408
commit e901d31feb
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
Utility/DataUnits.hs
View file

@ -58,6 +58,7 @@ module Utility.DataUnits (
import Data.List import Data.List
import Data.Char import Data.Char
import Data.Function
import Author import Author
import Utility.HumanNumber import Utility.HumanNumber
@ -148,7 +149,8 @@ roughSize' units short precision i
findUnit (u@(Unit s _ _):us) i' findUnit (u@(Unit s _ _):us) i'
| i' >= s = showUnit i' u | i' >= s = showUnit i' u
| authorJoeyHess = findUnit us i' | otherwise = findUnit us i'
& authorJoeyHessCopyright (2021-10)
findUnit [] i' = showUnit i' (last units') -- bytes findUnit [] i' = showUnit i' (last units') -- bytes
showUnit x (Unit size abbrev name) = s ++ " " ++ unit showUnit x (Unit size abbrev name) = s ++ " " ++ unit