[commit: ghc] master: StgCmmForeign: Break up long line (bd702f4)

[git at git.haskell.org]

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

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/bd702f496c1dfdb5a5cf5c1c8c59cce37ed1beda/ghc

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

commit bd702f496c1dfdb5a5cf5c1c8c59cce37ed1beda
Author: Ben Gamari <ben at smart-cactus.org>
Date:   Sat Jan 2 17:22:11 2016 +0100

    StgCmmForeign: Break up long line


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

bd702f496c1dfdb5a5cf5c1c8c59cce37ed1beda
 compiler/codeGen/StgCmmForeign.hs | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/compiler/codeGen/StgCmmForeign.hs b/compiler/codeGen/StgCmmForeign.hs
index cbbf3b6..c8db864 100644
--- a/compiler/codeGen/StgCmmForeign.hs
+++ b/compiler/codeGen/StgCmmForeign.hs
@@ -287,7 +287,13 @@ saveThreadState dflags = do
     -- tso = CurrentTSO;
     mkAssign (CmmLocal tso) stgCurrentTSO,
     -- tso->stackobj->sp = Sp;
-    mkStore (cmmOffset dflags (CmmLoad (cmmOffset dflags (CmmReg (CmmLocal tso)) (tso_stackobj dflags)) (bWord dflags)) (stack_SP dflags)) stgSp,
+    mkStore (cmmOffset dflags
+                       (CmmLoad (cmmOffset dflags
+                                           (CmmReg (CmmLocal tso))
+                                           (tso_stackobj dflags))
+                                (bWord dflags))
+                       (stack_SP dflags))
+            stgSp,
     close_nursery,
     -- and save the current cost centre stack in the TSO when profiling:
     if gopt Opt_SccProfilingOn dflags then