diff --git a/src/Swarm/Game/Failure.hs b/src/Swarm/Game/Failure.hs
index 2cb0c5156..ecade9883 100644
--- a/src/Swarm/Game/Failure.hs
+++ b/src/Swarm/Game/Failure.hs
@@ -86,7 +86,7 @@ instance PrettyPrec Asset where
     a -> pretty (showLowT a)
 
 instance PrettyPrec Entry where
-  prettyPrec = const . prettyShowLow
+  prettyPrec _ = prettyShowLow
 
 instance PrettyPrec LoadingFailure where
   prettyPrec _ = \case