mirror of
https://github.com/hasura/graphql-engine.git
synced 2024-12-17 04:24:35 +03:00
22 lines
614 B
Haskell
22 lines
614 B
Haskell
|
{-# OPTIONS_GHC -fno-warn-orphans #-}
|
||
|
|
-- | A convenience wrapper around "GHC.Stats", which makes RTS stats available
|
||
|
|
-- (when the program is run with +RTS -T)
|
||
|
|
module GHC.Stats.Extended
|
||
|
|
( module GHC.Stats
|
||
|
|
) where
|
||
|
|
|
||
|
|
import qualified Data.Aeson as A
|
||
|
|
import qualified Data.Aeson.TH as A
|
||
|
|
import GHC.Stats
|
||
|
|
|
||
|
|
$(A.deriveToJSON A.defaultOptions ''GCDetails)
|
||
|
|
$(A.deriveToJSON A.defaultOptions ''RTSStats)
|
||
|
|
|
||
|
|
{- for base >= 4.15
|
||
|
|
instance A.ToJSON S.GCDetails where
|
||
|
|
toEncoding = A.genericToEncoding A.defaultOptions
|
||
|
|
|
||
|
|
instance A.ToJSON S.RTSStats where
|
||
|
|
toEncoding = A.genericToEncoding A.defaultOptions
|
||
|
|
-}
|