diff options
| -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 "()" |