diff options
| author | Ian Lynagh <ian@well-typed.com> | 2012-08-05 14:19:40 +0100 |
|---|---|---|
| committer | Ian Lynagh <ian@well-typed.com> | 2012-08-05 14:19:40 +0100 |
| commit | 5ae0cea2cbd6777525e625397db941b81078120b (patch) | |
| tree | 42ec211cdd6be1229aea9cb80ffc7ea608c3263b /compiler/utils | |
| parent | 14b05c05c90f319742cfd4cc8c6026f6728fc23b (diff) | |
| download | haskell-5ae0cea2cbd6777525e625397db941b81078120b.tar.gz | |
Whitespace only in utils/Outputable.lhs
Diffstat (limited to 'compiler/utils')
| -rw-r--r-- | compiler/utils/Outputable.lhs | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/compiler/utils/Outputable.lhs b/compiler/utils/Outputable.lhs index 2ac49b33ab..8b49d30fde 100644 --- a/compiler/utils/Outputable.lhs +++ b/compiler/utils/Outputable.lhs @@ -605,19 +605,19 @@ instance Outputable Bool where ppr False = ptext (sLit "False") instance Outputable Int where - ppr n = int n + ppr n = int n instance Outputable Word16 where - ppr n = integer $ fromIntegral n + ppr n = integer $ fromIntegral n instance Outputable Word32 where - ppr n = integer $ fromIntegral n + ppr n = integer $ fromIntegral n instance Outputable Word where - ppr n = integer $ fromIntegral n + ppr n = integer $ fromIntegral n instance Outputable () where - ppr _ = text "()" + ppr _ = text "()" instance (Outputable a) => Outputable [a] where ppr xs = brackets (fsep (punctuate comma (map ppr xs))) @@ -629,12 +629,12 @@ instance (Outputable a, Outputable b) => Outputable (a, b) where ppr (x,y) = parens (sep [ppr x <> comma, ppr y]) instance Outputable a => Outputable (Maybe a) where - ppr Nothing = ptext (sLit "Nothing") - ppr (Just x) = ptext (sLit "Just") <+> ppr x + ppr Nothing = ptext (sLit "Nothing") + ppr (Just x) = ptext (sLit "Just") <+> ppr x instance (Outputable a, Outputable b) => Outputable (Either a b) where - ppr (Left x) = ptext (sLit "Left") <+> ppr x - ppr (Right y) = ptext (sLit "Right") <+> ppr y + ppr (Left x) = ptext (sLit "Left") <+> ppr x + ppr (Right y) = ptext (sLit "Right") <+> ppr y -- ToDo: may not be used instance (Outputable a, Outputable b, Outputable c) => Outputable (a, b, c) where |