Commit c498062c authored by thoughtpolice's avatar thoughtpolice
Browse files

Remove dead code, fix a typo.


Authored-by: ajp's avatarAnders Papitto <anderspapitto@gmail.com>
Signed-off-by: thoughtpolice's avatarAustin Seipp <aseipp@pobox.com>
parent a6e53ead
...@@ -1039,17 +1039,13 @@ sigtypes1 :: { [LHsType RdrName] } -- Always HsForAllTys ...@@ -1039,17 +1039,13 @@ sigtypes1 :: { [LHsType RdrName] } -- Always HsForAllTys
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
-- Types -- Types
infixtype :: { LHsType RdrName }
: btype qtyconop type { LL $ mkHsOpTy $1 $2 $3 }
| btype tyvarop type { LL $ mkHsOpTy $1 $2 $3 }
strict_mark :: { Located HsBang } strict_mark :: { Located HsBang }
: '!' { L1 (HsUserBang Nothing True) } : '!' { L1 (HsUserBang Nothing True) }
| '{-# UNPACK' '#-}' { LL (HsUserBang (Just True) False) } | '{-# UNPACK' '#-}' { LL (HsUserBang (Just True) False) }
| '{-# NOUNPACK' '#-}' { LL (HsUserBang (Just False) True) } | '{-# NOUNPACK' '#-}' { LL (HsUserBang (Just False) True) }
| '{-# UNPACK' '#-}' '!' { LL (HsUserBang (Just True) True) } | '{-# UNPACK' '#-}' '!' { LL (HsUserBang (Just True) True) }
| '{-# NOUNPACK' '#-}' '!' { LL (HsUserBang (Just False) 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 -- better error message if we parse it here
-- A ctype is a for-all type -- A ctype is a for-all type
......
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