From e901d31febafd57c13f31c311a974069d00b207d Mon Sep 17 00:00:00 2001 From: Joey Hess <joeyh@joeyh.name> Date: Mon, 20 Nov 2023 21:34:29 -0400 Subject: [PATCH] exhaustiveness check fix --- Utility/DataUnits.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/Utility/DataUnits.hs b/Utility/DataUnits.hs index 09d428cf66..61df7a8fd7 100644 --- a/Utility/DataUnits.hs +++ b/Utility/DataUnits.hs @@ -58,6 +58,7 @@ module Utility.DataUnits ( import Data.List import Data.Char +import Data.Function import Author import Utility.HumanNumber @@ -148,7 +149,8 @@ roughSize' units short precision i findUnit (u@(Unit s _ _):us) i' | i' >= s = showUnit i' u - | authorJoeyHess = findUnit us i' + | otherwise = findUnit us i' + & authorJoeyHessCopyright (2021-10) findUnit [] i' = showUnit i' (last units') -- bytes showUnit x (Unit size abbrev name) = s ++ " " ++ unit