[commit: ghc] master: Fix `hp2ps -i-` (325efac)

[git at git.haskell.org]

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

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

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

commit 325efac29827447402ad93fe99578fd791ffb822
Author: Thomas Miedema <thomasmiedema at gmail.com>
Date:   Tue Sep 15 23:20:10 2015 +0200

    Fix `hp2ps -i-`
    
    From the help text:
      -i[+|-] sort by identifier string (-i+ gives greatest on top)
    
    Found by David Binderman.


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

325efac29827447402ad93fe99578fd791ffb822
 utils/hp2ps/Main.c | 1 +
 1 file changed, 1 insertion(+)

diff --git a/utils/hp2ps/Main.c b/utils/hp2ps/Main.c
index 74d1bce..88f9b08 100644
--- a/utils/hp2ps/Main.c
+++ b/utils/hp2ps/Main.c
@@ -86,6 +86,7 @@ int main(int argc, char *argv[])
 		switch( *(*argv + 1) ) {
 		  case '-':
 		    iflag = -1;
+		    break;
 		  case '+':
 		  default:
 		    iflag = 1;