diff options
| author | Andreas Klebinger <klebinger.andreas@gmx.at> | 2019-06-13 17:07:45 +0200 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2019-06-13 23:36:34 -0400 |
| commit | 3bc6df3223f62a8366e2e4267bac23aa08e6a939 (patch) | |
| tree | 2e95fe3e64b730fc71eeee9d7ee37adac79213bd | |
| parent | ec25fe5986c13f673882a88a3107dfa2e0cec254 (diff) | |
| download | haskell-3bc6df3223f62a8366e2e4267bac23aa08e6a939.tar.gz | |
Add Outputable instances for Float, Double.
| -rw-r--r-- | compiler/utils/Outputable.hs | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/compiler/utils/Outputable.hs b/compiler/utils/Outputable.hs index 47b0d67449..ee857a817e 100644 --- a/compiler/utils/Outputable.hs +++ b/compiler/utils/Outputable.hs @@ -813,6 +813,12 @@ instance Outputable Word32 where instance Outputable Word where ppr n = integer $ fromIntegral n +instance Outputable Float where + ppr f = float f + +instance Outputable Double where + ppr f = double f + instance Outputable () where ppr _ = text "()" |