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/codeGen/StgCmmForeign.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/codeGen/StgCmmForeign.hs')
| -rw-r--r-- | compiler/codeGen/StgCmmForeign.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/codeGen/StgCmmForeign.hs b/compiler/codeGen/StgCmmForeign.hs index 45e5733fc1..7e26e7e118 100644 --- a/compiler/codeGen/StgCmmForeign.hs +++ b/compiler/codeGen/StgCmmForeign.hs @@ -526,7 +526,7 @@ closureField dflags off = off + fixedHdrSize dflags -- demonstrated that this leads to bad behavior in the presence -- of unsafeCoerce#. Returning to the above example, suppose the -- Haskell call looked like --- foo (unsafeCoerce# p) +-- foo (unsafeCoerce# p) -- where the types of expressions comprising the arguments are -- p :: (Any :: TYPE 'UnliftedRep) -- i :: Int# @@ -591,7 +591,7 @@ add_shim dflags ty expr = case ty of -- the offset of each argument when used as a C FFI argument. -- See Note [Unlifted boxed arguments to foreign calls] collectStgFArgTypes :: Type -> [StgFArgType] -collectStgFArgTypes = go [] +collectStgFArgTypes = go [] where -- Skip foralls go bs (ForAllTy _ res) = go bs res |