diff options
| author | Sylvain Henry <sylvain@haskus.fr> | 2020-09-14 19:46:45 +0200 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2020-09-17 20:04:08 -0400 |
| commit | e45c85446de7589e17acf5654c2b33f766043eb1 (patch) | |
| tree | db36adba8d53eb3b9cc8e6cbfd37d43f7c8445b7 /compiler/GHC/CmmToAsm/Reg/Graph | |
| parent | ca48076ae866665913b9c81cbc0c76f0afef7a00 (diff) | |
| download | haskell-e45c85446de7589e17acf5654c2b33f766043eb1.tar.gz | |
Generalize OutputableP
Add a type parameter for the environment required by OutputableP. It
avoids tying Platform with OutputableP.
Diffstat (limited to 'compiler/GHC/CmmToAsm/Reg/Graph')
| -rw-r--r-- | compiler/GHC/CmmToAsm/Reg/Graph/Stats.hs | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/compiler/GHC/CmmToAsm/Reg/Graph/Stats.hs b/compiler/GHC/CmmToAsm/Reg/Graph/Stats.hs index 0bfba3dbc7..534c6f0bbb 100644 --- a/compiler/GHC/CmmToAsm/Reg/Graph/Stats.hs +++ b/compiler/GHC/CmmToAsm/Reg/Graph/Stats.hs @@ -1,4 +1,8 @@ {-# LANGUAGE BangPatterns, CPP, DeriveFunctor #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE FlexibleContexts #-} + {-# OPTIONS_GHC -Wno-incomplete-uni-patterns #-} @@ -113,7 +117,7 @@ data RegAllocStats statics instr deriving (Functor) -instance (OutputableP statics, OutputableP instr) +instance (OutputableP Platform statics, OutputableP Platform instr) => Outputable (RegAllocStats statics instr) where ppr (s@RegAllocStatsStart{}) |