[commit: ghc] master: Handle parens in predicates when converting to TH (053a9d1)

[git at git.haskell.org]

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

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

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

commit 053a9d15031b0b33adc77eaadc5536a43dc7de33
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Tue Dec 31 21:25:19 2013 +0000

    Handle parens in predicates when converting to TH
    
    This fixes Trac #8625


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

053a9d15031b0b33adc77eaadc5536a43dc7de33
 compiler/deSugar/DsMeta.hs |    2 ++
 1 file changed, 2 insertions(+)

diff --git a/compiler/deSugar/DsMeta.hs b/compiler/deSugar/DsMeta.hs
index 578b668..0ee963e 100644
--- a/compiler/deSugar/DsMeta.hs
+++ b/compiler/deSugar/DsMeta.hs
@@ -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