diff options
Diffstat (limited to 'compiler/GHC/Hs/Syn/Type.hs')
| -rw-r--r-- | compiler/GHC/Hs/Syn/Type.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/GHC/Hs/Syn/Type.hs b/compiler/GHC/Hs/Syn/Type.hs index 5cf368027d..4952256baf 100644 --- a/compiler/GHC/Hs/Syn/Type.hs +++ b/compiler/GHC/Hs/Syn/Type.hs @@ -129,8 +129,8 @@ hsExprType (ArithSeq _ mb_overloaded_op asi) = case mb_overloaded_op of Nothing -> asi_ty where asi_ty = arithSeqInfoType asi -hsExprType (HsTypedBracket (HsBracketTc ty _wrap _pending) _) = ty -hsExprType (HsUntypedBracket (HsBracketTc ty _wrap _pending) _) = ty +hsExprType (HsTypedBracket (HsBracketTc _ ty _wrap _pending) _) = ty +hsExprType (HsUntypedBracket (HsBracketTc _ ty _wrap _pending) _) = ty hsExprType e@(HsSpliceE{}) = pprPanic "hsExprType: Unexpected HsSpliceE" (ppr e) -- Typed splices should have been eliminated during zonking, but we |