exhaustiveness check fix

diff --git a/Utility/DataUnits.hs b/Utility/DataUnits.hs
index 09d428cf6620aecbb9f83649393c3e39962c5718..61df7a8fd7fecdccb18b310b784510b8c2e0fe25 100644 (file)
--- 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