Commit 5f745f25 authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Fix a couple of warnings

parent 6f6870de
...@@ -7,7 +7,6 @@ ...@@ -7,7 +7,6 @@
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
\begin{code} \begin{code}
{-# OPTIONS -fno-warn-unused-do-bind #-}
module SysTools ( module SysTools (
-- Initialisation -- Initialisation
initSysTools, initSysTools,
...@@ -631,7 +630,11 @@ readElfSection _dflags section exe = do ...@@ -631,7 +630,11 @@ readElfSection _dflags section exe = do
[(p,"")] -> Just p [(p,"")] -> Just p
_r -> doFilter r _r -> doFilter r
where parse = do where parse = do
skipSpaces; R.char '['; skipSpaces; string "0]"; skipSpaces; skipSpaces
_ <- R.char '['
skipSpaces
_ <- string "0]"
skipSpaces
munch (const True) munch (const True)
\end{code} \end{code}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment