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

Fix a couple of warnings

parent 6f6870de
......@@ -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}
......
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