[commit: ghc] wip/ext-solver: Separate terms by a space. (9e202c5)

[git at git.haskell.org]

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

On branch  : wip/ext-solver
Link       : http://ghc.haskell.org/trac/ghc/changeset/9e202c54b359748b38b27903060b8b97a2d0ffb3/ghc

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

commit 9e202c54b359748b38b27903060b8b97a2d0ffb3
Author: Iavor S. Diatchki <iavor.diatchki at gmail.com>
Date:   Mon Apr 28 23:28:26 2014 -0700

    Separate terms by a space.


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

9e202c54b359748b38b27903060b8b97a2d0ffb3
 compiler/typecheck/TcTypeNats.hs |    3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/compiler/typecheck/TcTypeNats.hs b/compiler/typecheck/TcTypeNats.hs
index 17a1037..63d101f 100644
--- a/compiler/typecheck/TcTypeNats.hs
+++ b/compiler/typecheck/TcTypeNats.hs
@@ -1079,7 +1079,8 @@ renderSExpr ex =
   case ex of
     SAtom x  -> showString x
     SList es -> showChar '(' .
-                foldr (\e m -> renderSExpr e . m) (showChar ')') es
+                foldr (\e m -> renderSExpr e . showChar ' ' . m)
+                (showChar ')') es
 
 parseSExpr :: String -> Maybe (SExpr, String)
 parseSExpr (c : more) | isSpace c = parseSExpr more