diff options
| author | Matthew Pickering <matthewtpickering@gmail.com> | 2019-06-07 14:33:13 +0100 |
|---|---|---|
| committer | Matthew Pickering <matthewtpickering@gmail.com> | 2019-06-07 14:34:26 +0100 |
| commit | 36cab4e723020519a4e185a12ec75b3c81868d0c (patch) | |
| tree | 4cf10002d89b4d7bedaf617b23bfcc1e024acffe /compiler/cmm/MkGraph.hs | |
| parent | ba4e3934abc82e0ba2bec51842315819910d1018 (diff) | |
| download | haskell-wip/remove-whitespace.tar.gz | |
Remove trailing whitespacewip/remove-whitespace
[skip ci]
This should really be caught by the linters! (#16711)
Diffstat (limited to 'compiler/cmm/MkGraph.hs')
| -rw-r--r-- | compiler/cmm/MkGraph.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/cmm/MkGraph.hs b/compiler/cmm/MkGraph.hs index 41526c7728..8beb01bc4e 100644 --- a/compiler/cmm/MkGraph.hs +++ b/compiler/cmm/MkGraph.hs @@ -335,8 +335,8 @@ copyIn dflags conv area formals extra_stk local = CmmLocal reg width = cmmRegWidth dflags local expr = CmmMachOp (MO_XX_Conv (wordWidth dflags) width) [stack_slot] - in CmmAssign local expr - + in CmmAssign local expr + | otherwise = CmmAssign (CmmLocal reg) (CmmLoad (CmmStackSlot area off) ty) where ty = localRegType reg |