Commit 8b87f191 authored by's avatar
Browse files

Fix Trac #3342: missed zonking in TcHsSyn

The type in a ViewPat wasn't being zonked.  Easily fixed.
parent 1a77fd71
......@@ -822,7 +822,8 @@ zonk_pat env (AsPat (L loc v) pat)
zonk_pat env (ViewPat expr pat ty)
= do { expr' <- zonkLExpr env expr
; (env', pat') <- zonkPat env pat
; return (env', ViewPat expr' pat' ty) }
; ty' <- zonkTcTypeToType env ty
; return (env', ViewPat expr' pat' ty') }
zonk_pat env (ListPat pats ty)
= do { ty' <- zonkTcTypeToType env ty
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