mirror of
https://github.com/hasura/graphql-engine.git
synced 2024-12-16 18:42:30 +03:00
647231b685
Manually enables: * EmptyCase * ExistentialQuantification * QuantifiedConstraints * QuasiQuotes * TemplateHaskell * TypeFamilyDependencies ...in the following components: * 'graphql-engine' library * 'graphql-engine' 'src-test' * 'graphql-engine' 'tests/integration' * 'graphql-engine' tests-hspec' Additionally, performs some light refactoring and documentation. PR-URL: https://github.com/hasura/graphql-engine-mono/pull/3991 GitOrigin-RevId: 514477d3466b01f60eca8935d0fef60dd0756838
25 lines
636 B
Haskell
25 lines
636 B
Haskell
{-# LANGUAGE TemplateHaskell #-}
|
|
{-# 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 Data.Aeson qualified as A
|
|
import Data.Aeson.TH qualified 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
|
|
-}
|