[commit: ghc] master: Remove dead code, fix a typo. (c498062)

[git at git.haskell.org]

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

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

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

commit c498062c37c90682626dbd0dfbe3584345675b90
Author: Austin Seipp <aseipp at pobox.com>
Date:   Sun Aug 18 22:57:35 2013 -0500

    Remove dead code, fix a typo.
    
    Authored-by: Anders Papitto <anderspapitto at gmail.com>
    Signed-off-by: Austin Seipp <aseipp at pobox.com>


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

c498062c37c90682626dbd0dfbe3584345675b90
 compiler/parser/Parser.y.pp |    6 +-----
 1 file changed, 1 insertion(+), 5 deletions(-)

diff --git a/compiler/parser/Parser.y.pp b/compiler/parser/Parser.y.pp
index 97af80e..384fb53 100644
--- a/compiler/parser/Parser.y.pp
+++ b/compiler/parser/Parser.y.pp
@@ -1039,17 +1039,13 @@ sigtypes1 :: { [LHsType RdrName] }      -- Always HsForAllTys
 -----------------------------------------------------------------------------
 -- Types
 
-infixtype :: { LHsType RdrName }
-        : btype qtyconop type         { LL $ mkHsOpTy $1 $2 $3 }
-        | btype tyvarop  type    { LL $ mkHsOpTy $1 $2 $3 }
-
 strict_mark :: { Located HsBang }
         : '!'                           { L1 (HsUserBang Nothing      True) }
         | '{-# UNPACK' '#-}'            { LL (HsUserBang (Just True)  False) }
         | '{-# NOUNPACK' '#-}'          { LL (HsUserBang (Just False) True) }
         | '{-# UNPACK' '#-}' '!'        { LL (HsUserBang (Just True)  True) }
         | '{-# NOUNPACK' '#-}' '!'      { LL (HsUserBang (Just False) True) }
-        -- Although UNPAACK with no '!' is illegal, we get a
+        -- Although UNPACK with no '!' is illegal, we get a
         -- better error message if we parse it here
 
 -- A ctype is a for-all type