diff options
| author | John Ericson <John.Ericson@Obsidian.Systems> | 2022-02-04 03:00:12 +0000 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2022-02-06 01:44:32 -0500 |
| commit | 37d435d263832ffb2808dad0ccd50110c9f0c430 (patch) | |
| tree | 0c3d046be6575f184cb4e768e2611b31db4d355a /utils | |
| parent | 633296bca950f0ef17313f8487d2f5ddd369bc4f (diff) | |
| download | haskell-37d435d263832ffb2808dad0ccd50110c9f0c430.tar.gz | |
Purge DynFlags from GHC.Stg
Also derive some more instances. GHC doesn't need them, but downstream
consumers may need to e.g. put stuff in maps.
Diffstat (limited to 'utils')
| -rw-r--r-- | utils/deriveConstants/Main.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/utils/deriveConstants/Main.hs b/utils/deriveConstants/Main.hs index 7121e74245..4832ccfc89 100644 --- a/utils/deriveConstants/Main.hs +++ b/utils/deriveConstants/Main.hs @@ -880,7 +880,7 @@ writeHaskellType fn ws = atomicWriteFile fn xs \import Prelude\n\ \import Data.Char\n\n\ \data PlatformConstants = PlatformConstants {" - footer = " } deriving (Show,Read,Eq)\n\n" + footer = " } deriving (Show, Read, Eq, Ord)\n\n" body = intercalate ",\n" (concatMap doWhat ws) doWhat (GetClosureSize name _) = [" pc_" ++ name ++ " :: {-# UNPACK #-} !Int"] |