diff options
| -rw-r--r-- | compiler/codeGen/StgCmmEnv.hs | 6 | ||||
| -rw-r--r-- | rts/Capability.c | 2 |
2 files changed, 4 insertions, 4 deletions
diff --git a/compiler/codeGen/StgCmmEnv.hs b/compiler/codeGen/StgCmmEnv.hs index f27728189f..e605762f1f 100644 --- a/compiler/codeGen/StgCmmEnv.hs +++ b/compiler/codeGen/StgCmmEnv.hs @@ -114,9 +114,9 @@ addBindC stuff_to_bind = do addBindsC :: [CgIdInfo] -> FCode () addBindsC new_bindings = do binds <- getBinds - let new_binds = foldl (\ binds info -> extendVarEnv binds (cg_id info) info) - binds - new_bindings + let new_binds = foldl' (\ binds info -> extendVarEnv binds (cg_id info) info) + binds + new_bindings setBinds new_binds getCgIdInfo :: Id -> FCode CgIdInfo diff --git a/rts/Capability.c b/rts/Capability.c index 74f7a295e9..bda3b0e681 100644 --- a/rts/Capability.c +++ b/rts/Capability.c @@ -484,7 +484,7 @@ giveCapabilityToTask (Capability *cap USED_IF_DEBUG, Task *task) if (task->wakeup == false) { task->wakeup = true; // the wakeup flag is needed because signalCondition() doesn't - // flag the condition if the thread is already runniing, but we want + // flag the condition if the thread is already running, but we want // it to be sticky. signalCondition(&task->cond); } |