diff options
| author | Hécate <hecate+gitlab@glitchbra.in> | 2020-09-26 17:15:10 +0200 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2020-10-09 08:44:26 -0400 |
| commit | f7e2fff96975128397e2dab7d57da3c9c6b8c76b (patch) | |
| tree | c1aaa7d3750531a648787c075b804f242d28e589 /libraries/base/GHC/RTS | |
| parent | e48cab2a57f2342891f985bcb44817e17e985275 (diff) | |
| download | haskell-f7e2fff96975128397e2dab7d57da3c9c6b8c76b.tar.gz | |
Add linting of `base` to the CI
Diffstat (limited to 'libraries/base/GHC/RTS')
| -rw-r--r-- | libraries/base/GHC/RTS/Flags.hsc | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/libraries/base/GHC/RTS/Flags.hsc b/libraries/base/GHC/RTS/Flags.hsc index 03cd368723..b23ae34165 100644 --- a/libraries/base/GHC/RTS/Flags.hsc +++ b/libraries/base/GHC/RTS/Flags.hsc @@ -1,6 +1,5 @@ {-# LANGUAGE DeriveGeneric #-} {-# LANGUAGE NoImplicitPrelude #-} -{-# LANGUAGE RecordWildCards #-} -- | Accessors to GHC RTS flags. -- Descriptions of flags can be seen in @@ -392,7 +391,7 @@ data RTSFlags = RTSFlags foreign import ccall "&RtsFlags" rtsFlagsPtr :: Ptr RTSFlags getRTSFlags :: IO RTSFlags -getRTSFlags = do +getRTSFlags = RTSFlags <$> getGCFlags <*> getConcFlags <*> getMiscFlags |