Typo fix, replace a foldl with foldl'

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);
     }