[commit: ghc] master: RtsFlags.c: Const correct fixes (1e67010)

[git at git.haskell.org]

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

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

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

commit 1e6701011425edb3553abc17c094a2a9faee4fd5
Author: Erik de Castro Lopo <erikd at mega-nerd.com>
Date:   Sun May 29 07:26:39 2016 +1000

    RtsFlags.c: Const correct fixes
    
    Test Plan: validate
    
    Reviewers: hvr, austin, simonmar, bgamari
    
    Reviewed By: bgamari
    
    Subscribers: thomie
    
    Differential Revision: https://phabricator.haskell.org/D2275


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

1e6701011425edb3553abc17c094a2a9faee4fd5
 rts/RtsFlags.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/rts/RtsFlags.c b/rts/RtsFlags.c
index 31a2c8b..1ec5db0 100644
--- a/rts/RtsFlags.c
+++ b/rts/RtsFlags.c
@@ -1609,8 +1609,8 @@ static rtsBool read_heap_profiling_flag(const char *arg)
     case 'b':
         if (arg[2] != '\0' && arg[3] != '\0') {
             {
-                char *left  = strchr(arg, '{');
-                char *right = strrchr(arg, '}');
+                const char *left  = strchr(arg, '{');
+                const char *right = strrchr(arg, '}');
 
                 // curly braces are optional, for
                 // backwards compat.