From 53a54a343de279cc26303966e41454def8c28ce2 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Thu, 8 Apr 2021 19:33:46 +0200 Subject: [PATCH] refactor: hlint --- src/Utils/ARC.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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 }