[commit: ghc] master: Dead code elimination. (5d77d8d)

[git at git.haskell.org]

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

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/5d77d8d4e007a6f332558620b3d62749afa00e24/ghc

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

commit 5d77d8d4e007a6f332558620b3d62749afa00e24
Author: Austin Seipp <aseipp at pobox.com>
Date:   Sun Aug 18 22:59:17 2013 -0500

    Dead code elimination.
    
    Authored-by: Paul Cavallaro <ptc at fb.com>
    Signed-off-by: Austin Seipp <aseipp at pobox.com>


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

5d77d8d4e007a6f332558620b3d62749afa00e24
 compiler/parser/RdrHsSyn.lhs |    4 ----
 1 file changed, 4 deletions(-)

diff --git a/compiler/parser/RdrHsSyn.lhs b/compiler/parser/RdrHsSyn.lhs
index 1e61cf9..ea4c653 100644
--- a/compiler/parser/RdrHsSyn.lhs
+++ b/compiler/parser/RdrHsSyn.lhs
@@ -45,7 +45,6 @@ module RdrHsSyn (
         checkValSig,          -- (SrcLoc, HsExp, HsRhs, [HsDecl]) -> P HsDecl
         checkDoAndIfThenElse,
         checkRecordSyntax,
-        parseError,
         parseErrorSDoc,
 
         -- Help with processing exports
@@ -1086,9 +1085,6 @@ mkTypeImpExp name =
 -- Misc utils
 
 \begin{code}
-parseError :: SrcSpan -> String -> P a
-parseError span s = parseErrorSDoc span (text s)
-
 parseErrorSDoc :: SrcSpan -> SDoc -> P a
 parseErrorSDoc span s = failSpanMsgP span s
 \end{code}