diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2011-07-21 12:32:32 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2011-07-24 16:06:05 +0100 |
| commit | 4092378adf77fab8bc43202bab76d94ea8c181b0 (patch) | |
| tree | 6f34601002826a94c0c2f1e387d7c75acf9c6e91 | |
| parent | ff29083209e5e9d0a5b4a87e2456dee23301b38d (diff) | |
| download | haskell-4092378adf77fab8bc43202bab76d94ea8c181b0.tar.gz | |
Comments and white space
| -rw-r--r-- | compiler/main/ErrUtils.lhs | 1 | ||||
| -rw-r--r-- | compiler/simplCore/SimplEnv.lhs | 2 |
2 files changed, 1 insertions, 2 deletions
diff --git a/compiler/main/ErrUtils.lhs b/compiler/main/ErrUtils.lhs index 60e1376420..f47b8be935 100644 --- a/compiler/main/ErrUtils.lhs +++ b/compiler/main/ErrUtils.lhs @@ -312,5 +312,4 @@ showPass dflags what debugTraceMsg :: DynFlags -> Int -> Message -> IO () debugTraceMsg dflags val msg = ifVerbose dflags val (log_action dflags SevInfo noSrcSpan defaultDumpStyle msg) - \end{code} diff --git a/compiler/simplCore/SimplEnv.lhs b/compiler/simplCore/SimplEnv.lhs index 677a1e9d02..2d416d7fb6 100644 --- a/compiler/simplCore/SimplEnv.lhs +++ b/compiler/simplCore/SimplEnv.lhs @@ -498,7 +498,7 @@ Note [Global Ids in the substitution] ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ We look up even a global (eg imported) Id in the substitution. Consider case X.g_34 of b { (a,b) -> ... case X.g_34 of { (p,q) -> ...} ... } -The binder-swap in the occurence analyser will add a binding +The binder-swap in the occurrence analyser will add a binding for a LocalId version of g (with the same unique though): case X.g_34 of b { (a,b) -> let g_34 = b in ... case X.g_34 of { (p,q) -> ...} ... } |