mirror of
https://github.com/hasura/graphql-engine.git
synced 2024-09-17 13:37:26 +03:00
chore(debugging): convert trace ghc warnings to hlint warnings
PR-URL: https://github.com/hasura/graphql-engine-mono/pull/8700 GitOrigin-RevId: 29b1ee9172bb10823420de9555c3e22f9846facd
This commit is contained in:
parent
6df11fbf2c
commit
4696b60ec7
13
.hlint.yaml
13
.hlint.yaml
@ -71,6 +71,19 @@
|
|||||||
within: []
|
within: []
|
||||||
message: "undefined isn't allowed"
|
message: "undefined isn't allowed"
|
||||||
|
|
||||||
|
## Trace debugging
|
||||||
|
- name: "ltrace"
|
||||||
|
within: []
|
||||||
|
message: "ltrace left in code"
|
||||||
|
- name: "ltraceM"
|
||||||
|
within: []
|
||||||
|
message: "ltraceM left in code"
|
||||||
|
- name: "traceToFile"
|
||||||
|
within: []
|
||||||
|
message: "traceToFile left in code"
|
||||||
|
- name: "traceToFileM"
|
||||||
|
within: []
|
||||||
|
message: "traceToFileM left in code"
|
||||||
|
|
||||||
################################################################################
|
################################################################################
|
||||||
# Ignore some builtin hints
|
# Ignore some builtin hints
|
||||||
|
@ -299,12 +299,14 @@ tshow = T.pack . show
|
|||||||
-- | Labeled, prettified 'traceShowId'.
|
-- | Labeled, prettified 'traceShowId'.
|
||||||
ltrace :: Show a => String -> a -> a
|
ltrace :: Show a => String -> a -> a
|
||||||
ltrace lbl x = Debug.trace (lbl <> ": " <> TL.unpack (PS.pShow x)) x
|
ltrace lbl x = Debug.trace (lbl <> ": " <> TL.unpack (PS.pShow x)) x
|
||||||
{-# WARNING ltrace "ltrace left in code" #-}
|
|
||||||
|
{- HLINT ignore ltrace -}
|
||||||
|
|
||||||
-- | Labeled, prettified 'traceShowM'.
|
-- | Labeled, prettified 'traceShowM'.
|
||||||
ltraceM :: Applicative m => Show a => String -> a -> m ()
|
ltraceM :: Applicative m => Show a => String -> a -> m ()
|
||||||
ltraceM lbl x = Debug.traceM (lbl <> ": " <> TL.unpack (PS.pShow x))
|
ltraceM lbl x = Debug.traceM (lbl <> ": " <> TL.unpack (PS.pShow x))
|
||||||
{-# WARNING ltraceM "ltraceM left in code" #-}
|
|
||||||
|
{- HLINT ignore ltraceM -}
|
||||||
|
|
||||||
-- | Trace a prettified value to a file.
|
-- | Trace a prettified value to a file.
|
||||||
traceToFile :: Show a => FilePath -> a -> a
|
traceToFile :: Show a => FilePath -> a -> a
|
||||||
@ -312,7 +314,8 @@ traceToFile filepath x =
|
|||||||
Debug.trace
|
Debug.trace
|
||||||
("tracing to " <> filepath)
|
("tracing to " <> filepath)
|
||||||
(unsafePerformIO (TLIO.writeFile filepath (PS.pShowNoColor x) $> x))
|
(unsafePerformIO (TLIO.writeFile filepath (PS.pShowNoColor x) $> x))
|
||||||
{-# WARNING traceToFile "traceToFile left in code" #-}
|
|
||||||
|
{- HLINT ignore traceToFile -}
|
||||||
|
|
||||||
-- | Trace a prettified value to a file in an Applicative context.
|
-- | Trace a prettified value to a file in an Applicative context.
|
||||||
traceToFileM :: Applicative m => Show a => FilePath -> a -> m ()
|
traceToFileM :: Applicative m => Show a => FilePath -> a -> m ()
|
||||||
@ -323,7 +326,8 @@ traceToFileM filepath x =
|
|||||||
filepath,
|
filepath,
|
||||||
show $ unsafePerformIO $ TLIO.writeFile filepath $ PS.pShowNoColor x
|
show $ unsafePerformIO $ TLIO.writeFile filepath $ PS.pShowNoColor x
|
||||||
]
|
]
|
||||||
{-# WARNING traceToFileM "traceToFileM left in code" #-}
|
|
||||||
|
{- HLINT ignore traceToFileM -}
|
||||||
|
|
||||||
--------------------------------------------------------------------------------
|
--------------------------------------------------------------------------------
|
||||||
-- Map-related utilities
|
-- Map-related utilities
|
||||||
|
Loading…
Reference in New Issue
Block a user