diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2013-08-19 09:45:08 +0100 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2013-08-19 09:46:10 +0100 |
| commit | f6ed2f51d0b3fbb6d6049e9c7673b21946213700 (patch) | |
| tree | b05fcef6c9bc907a7893f9e6d07ddc6d97f64951 /compiler/coreSyn | |
| parent | 4d5c9b718fd2b24e810540bd1c9229f4ad5793b5 (diff) | |
| download | haskell-f6ed2f51d0b3fbb6d6049e9c7673b21946213700.tar.gz | |
Fix Haddock formatting
Diffstat (limited to 'compiler/coreSyn')
| -rw-r--r-- | compiler/coreSyn/CoreUtils.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/coreSyn/CoreUtils.lhs b/compiler/coreSyn/CoreUtils.lhs index 7c0a2d406e..ddf4406081 100644 --- a/compiler/coreSyn/CoreUtils.lhs +++ b/compiler/coreSyn/CoreUtils.lhs @@ -1626,7 +1626,7 @@ tryEtaReduce bndrs body , let result = mkCast fun co , not (any (`elemVarSet` exprFreeVars result) bndrs) = Just result -- Check for any of the binders free in the result - -- *including* the accumulated coercion + -- including the accumulated coercion go (b : bs) (App fun arg) co | Just co' <- ok_arg b arg co |