From ded4a1db4d61b1bc8b5fd73e8eb87cf572efda35 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?=C3=96mer=20Sinan=20A=C4=9Facan?= <omeragacan@gmail.com>
Date: Wed, 12 Dec 2018 11:51:20 +0300
Subject: [PATCH] Typo fix, replace a foldl with foldl'
---
compiler/codeGen/StgCmmEnv.hs | 6 +++---
rts/Capability.c | 2 +-
2 files changed, 4 insertions(+), 4 deletions(-)
diff --git a/compiler/codeGen/StgCmmEnv.hs b/compiler/codeGen/StgCmmEnv.hs
index f27728189f13..e605762f1fcd 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 74f7a295e97a..bda3b0e681d5 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);
}
--
GitLab