[project @ 2005-04-04 12:08:27 by simonpj]
authorsimonpj <unknown>
Mon, 4 Apr 2005 12:08:27 +0000 (12:08 +0000)
committersimonpj <unknown>
Mon, 4 Apr 2005 12:08:27 +0000 (12:08 +0000)
Match changes in DsMeta

libraries/template-haskell/Language/Haskell/TH/Lib.hs

index 426b679..9432231 100644 (file)
@@ -138,10 +138,10 @@ normalGE g e = do { g1 <- g; e1 <- e; return (NormalG g1, e1) }
 patG :: [StmtQ] -> GuardQ
 patG ss = do { ss' <- sequence ss; return (PatG ss') }
 
-patGE :: [StmtQ] -> Q (Guard, Exp)
-patGE ss = do { ss' <- sequence ss;
-                let {NoBindS e = last ss'};
-                return (PatG (init ss'), e) }
+patGE :: [StmtQ] -> ExpQ -> Q (Guard, Exp)
+patGE ss = do { ss' <- sequence ss;
+                 e'  <- e;
+                  return (PatG ss', e') }
 
 -------------------------------------------------------------------------------
 --     Match and Clause