[project @ 1997-08-02 21:28:33 by sof]

Added reader handling of let expressions in pattern guards

ghc/compiler/reader/ReadPrefix.lhs

@@ -374,6 +374,15 @@ wlkQuals cquals
 		      binds = cvBinds sf cvValSig bs
 		  in
 		  returnUgn (LetStmt binds)
+	        U_let letvdefs letvexpr -> 
+		    wlkBinding letvdefs	`thenUgn` \ binding ->
+		    wlkExpr    letvexpr	`thenUgn` \ expr    ->
+		    getSrcLocUgn 	`thenUgn` \ loc ->
+		    getSrcFileUgn	`thenUgn` \ sf	    ->
+		    let
+		     binds = cvBinds sf cvValSig binding
+		    in
+		    returnUgn (GuardStmt (HsLet binds expr) loc)
 \end{code}
 
 Patterns: just bear in mind that lists of patterns are represented as