fraport/fradrive-old
Archived
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

refactor: hlint

Browse Source
This commit is contained in:
Gregor Kleen 2021-04-08 19:33:46 +02:00
parent 939ab37588
commit 53a54a343d
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Utils/ARC.hs
View File

@ -19,7 +19,7 @@ import qualified Data.HashPSQ as HashPSQ
import Control.Lens import Control.Lens
import Type.Reflection import Type.Reflection
import Text.Show (showString) import Text.Show (showString, shows)
import Data.Hashable (Hashed, hashed) import Data.Hashable (Hashed, hashed)
@ -43,7 +43,7 @@ instance NFData NFDynamic where
rnf (NFDynamic t v) = rnfTypeRep t `seq` rnf v rnf (NFDynamic t v) = rnfTypeRep t `seq` rnf v
instance Show NFDynamic where instance Show NFDynamic where
showsPrec _ (NFDynamic t _) = showString "<<" . showsPrec 0 t . showString ">>" showsPrec _ (NFDynamic t _) = showString "<<" . shows t . showString ">>"
newtype ARCTick = ARCTick { _getARCTick :: Word64 } newtype ARCTick = ARCTick { _getARCTick :: Word64 }