Commit 03d60379 authored by Simon Marlow's avatar Simon Marlow
Browse files

revert previous fix until I can find out why it was wrong

should fix recent GHCi problems in the HEAD
parent 70918cf4
......@@ -63,7 +63,7 @@ dsGRHSs hs_ctx pats grhssa@(GRHSs grhss binds) rhs_ty =
let
match_result1 = foldr1 combineMatchResults match_results
match_result2 = adjustMatchResultDs
(\e -> bindLocalsDs binders $
(\e -> bindLocalsDs patsBinders $
dsLocalBinds binds e)
match_result1
-- NB: nested dsLet inside matchResult
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment