diff --git a/src/Utils/ARC.hs b/src/Utils/ARC.hs
index 5ae8a724d..7470e36fe 100644
--- a/src/Utils/ARC.hs
+++ b/src/Utils/ARC.hs
@@ -19,7 +19,7 @@ import qualified Data.HashPSQ as HashPSQ
 import Control.Lens
 
 import Type.Reflection
-import Text.Show (showString)
+import Text.Show (showString, shows)
 
 import Data.Hashable (Hashed, hashed)
 
@@ -43,7 +43,7 @@ instance NFData NFDynamic where
   rnf (NFDynamic t v) = rnfTypeRep t `seq` rnf v
 
 instance Show NFDynamic where
-  showsPrec _ (NFDynamic t _) = showString "<<" . showsPrec 0 t . showString ">>"
+  showsPrec _ (NFDynamic t _) = showString "<<" . shows t . showString ">>"
 
 
 newtype ARCTick = ARCTick { _getARCTick :: Word64 }