[commit: ghc] wip/generalized-arrow: Inline space (947b310)

git at git.haskell.org git at git.haskell.org
Mon Mar 21 17:11:42 UTC 2016


Repository : ssh://git@git.haskell.org/ghc

On branch  : wip/generalized-arrow
Link       : http://ghc.haskell.org/trac/ghc/changeset/947b310cd2011177ec12ea3ae6c3a6e2ffcde79f/ghc

>---------------------------------------------------------------

commit 947b310cd2011177ec12ea3ae6c3a6e2ffcde79f
Author: Ben Gamari <ben at smart-cactus.org>
Date:   Wed Mar 16 22:10:16 2016 +0100

    Inline space


>---------------------------------------------------------------

947b310cd2011177ec12ea3ae6c3a6e2ffcde79f
 libraries/base/Data/Typeable/Internal.hs | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/libraries/base/Data/Typeable/Internal.hs b/libraries/base/Data/Typeable/Internal.hs
index 09db187..c145773 100644
--- a/libraries/base/Data/Typeable/Internal.hs
+++ b/libraries/base/Data/Typeable/Internal.hs
@@ -337,10 +337,8 @@ instance Show (TypeRep (a :: k)) where
     | otherwise =
       showParen (p > 9) $
       showsPrec 8 f .
-      space .
+      showChar ' ' .
       showsPrec 9 x
-    where
-      space = showChar ' '
 
 instance Show TypeRepX where
   showsPrec p (TypeRepX ty) = showsPrec p ty



More information about the ghc-commits mailing list