Handle parens in predicates when converting to TH
authorSimon Peyton Jones <simonpj@microsoft.com>
Tue, 31 Dec 2013 21:25:19 +0000 (21:25 +0000)
committerSimon Peyton Jones <simonpj@microsoft.com>
Thu, 2 Jan 2014 14:49:45 +0000 (14:49 +0000)
This fixes Trac #8625

compiler/deSugar/DsMeta.hs

index 578b668..0ee963e 100644 (file)
@@ -763,6 +763,8 @@ repLPred :: LHsType Name -> DsM (Core TH.PredQ)
 repLPred (L _ p) = repPred p
 
 repPred :: HsType Name -> DsM (Core TH.PredQ)
+repPred (HsParTy ty) 
+  = repLPred ty
 repPred ty
   | Just (cls, tys) <- splitHsClassTy_maybe ty
   = do