[commit: ghc] master: typos in local var (eeb36eb)

git at git.haskell.org git at git.haskell.org
Thu Dec 14 16:01:19 UTC 2017


Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/eeb36ebdfd1361e18a57609dda6524ddd24cdd8d/ghc

>---------------------------------------------------------------

commit eeb36ebdfd1361e18a57609dda6524ddd24cdd8d
Author: Gabor Greif <ggreif at gmail.com>
Date:   Thu Dec 14 16:57:28 2017 +0100

    typos in local var


>---------------------------------------------------------------

eeb36ebdfd1361e18a57609dda6524ddd24cdd8d
 compiler/codeGen/StgCmmUtils.hs | 2 +-
 rts/linker/elf_util.c           | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/compiler/codeGen/StgCmmUtils.hs b/compiler/codeGen/StgCmmUtils.hs
index 07432c4..b6092e8 100644
--- a/compiler/codeGen/StgCmmUtils.hs
+++ b/compiler/codeGen/StgCmmUtils.hs
@@ -585,7 +585,7 @@ mk_float_switch rep scrut deflt_blk_id (lo_bound, hi_bound) branches
 --------------
 label_default :: BlockId -> Maybe CmmAGraphScoped -> FCode (Maybe BlockId)
 label_default _ Nothing
-  = return  Nothing
+  = return Nothing
 label_default join_lbl (Just code)
   = do lbl <- label_code join_lbl code
        return (Just lbl)
diff --git a/rts/linker/elf_util.c b/rts/linker/elf_util.c
index 9ff9d62..052b2d9 100644
--- a/rts/linker/elf_util.c
+++ b/rts/linker/elf_util.c
@@ -3,9 +3,9 @@
 #if defined(OBJFORMAT_ELF)
 
 ElfSymbolTable *
-findSymbolTable(ObjectCode * oc, unsigned symolTableIndex) {
+findSymbolTable(ObjectCode * oc, unsigned symbolTableIndex) {
     for(ElfSymbolTable * t=oc->info->symbolTables; t != NULL; t = t->next)
-        if(t->index == symolTableIndex)
+        if(t->index == symbolTableIndex)
             return t;
     return NULL;
 }



More information about the ghc-commits mailing list