[commit: packages/template-haskell] master: Fix GHC Trac #8186. (582e003)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/template-haskell

On branch  : master
Link       : http://git.haskell.org/?p=packages/template-haskell.git;a=commit;h=582e00322caa72437653910d338e72dafa593ede

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

commit 582e00322caa72437653910d338e72dafa593ede
Author: Richard Eisenberg <eir at cis.upenn.edu>
Date:   Tue Aug 27 17:39:42 2013 -0400

    Fix GHC Trac #8186.
    
    Make parS in TH.Lib work.


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

582e00322caa72437653910d338e72dafa593ede
 Language/Haskell/TH/Lib.hs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Language/Haskell/TH/Lib.hs b/Language/Haskell/TH/Lib.hs
index 346d872..b02732c 100644
--- a/Language/Haskell/TH/Lib.hs
+++ b/Language/Haskell/TH/Lib.hs
@@ -128,7 +128,7 @@ noBindS :: ExpQ -> StmtQ
 noBindS e = do { e1 <- e; return (NoBindS e1) }
 
 parS :: [[StmtQ]] -> StmtQ
-parS _ = fail "No parallel comprehensions yet"
+parS sss = do { sss1 <- mapM sequence sss; return (ParS sss1) }
 
 -------------------------------------------------------------------------------
 -- *   Range