[commit: ghc] master: Fix a couple of warnings (5f745f2)

[Ian Lynagh]

Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/5f745f250afe96279dcef05edf66cfd07dbc8126

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

commit 5f745f250afe96279dcef05edf66cfd07dbc8126
Author: Ian Lynagh <igloo at earth.li>
Date:   Mon Jul 16 12:29:21 2012 +0100

    Fix a couple of warnings

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

 compiler/main/SysTools.lhs |    7 +++++--
 1 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/compiler/main/SysTools.lhs b/compiler/main/SysTools.lhs
index 49314f2..9e5d247 100644
--- a/compiler/main/SysTools.lhs
+++ b/compiler/main/SysTools.lhs
@@ -7,7 +7,6 @@
 -----------------------------------------------------------------------------
 
 \begin{code}
-{-# OPTIONS -fno-warn-unused-do-bind #-}
 module SysTools (
         -- Initialisation
         initSysTools,
@@ -631,7 +630,11 @@ readElfSection _dflags section exe = do
                     [(p,"")] -> Just p
                     _r       -> doFilter r
    where parse = do
-           skipSpaces; R.char '['; skipSpaces; string "0]"; skipSpaces;
+           skipSpaces
+           _ <- R.char '['
+           skipSpaces
+           _ <- string "0]"
+           skipSpaces
            munch (const True)
 \end{code}