Typo fix, replace a foldl with foldl'
authorÖmer Sinan Ağacan <omeragacan@gmail.com>
Wed, 12 Dec 2018 08:51:20 +0000 (11:51 +0300)
committerÖmer Sinan Ağacan <omeragacan@gmail.com>
Wed, 12 Dec 2018 08:51:20 +0000 (11:51 +0300)
compiler/codeGen/StgCmmEnv.hs
rts/Capability.c

index f277281..e605762 100644 (file)
@@ -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
index 74f7a29..bda3b0e 100644 (file)
@@ -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);
     }