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