diff options
| author | Matthew Pickering <matthewtpickering@gmail.com> | 2019-06-07 14:33:13 +0100 |
|---|---|---|
| committer | Ben Gamari <ben@well-typed.com> | 2019-06-08 13:38:15 -0400 |
| commit | 709290b01c3c63137d863d6fdd97dabdfe47eb29 (patch) | |
| tree | f481fb176d0e8f31cf802ff4211ea2e660f1f1f5 /compiler/codeGen | |
| parent | c392f987de174ae04c6c7c47145dfe5db6427615 (diff) | |
| download | haskell-709290b01c3c63137d863d6fdd97dabdfe47eb29.tar.gz | |
Remove trailing whitespace
[skip ci]
This should really be caught by the linters! (#16711)
Diffstat (limited to 'compiler/codeGen')
| -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 |