StgCmmForeign: Break up long line

bd702f49 · Ben Gamari · bbee3e16 · bd702f49
Commit bd702f49 authored Jan 02, 2016 by Ben Gamari 🐢
Hide whitespace changes
Inline Side-by-side

Showing with 7 additions and 1 deletion

compiler/codeGen/StgCmmForeign.hs compiler/codeGen/StgCmmForeign.hs +7 -1

No files found.
--- 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