Fix pattern w/o location in Check

23cf42c0 · chak@cse.unsw.edu.au. · d841b629 · 23cf42c0
Commit 23cf42c0 authored Aug 07, 2006 by chak@cse.unsw.edu.au.
Show whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

compiler/deSugar/Check.lhs compiler/deSugar/Check.lhs +1 -1

No files found.
--- a/compiler/deSugar/Check.lhs
+++ b/compiler/deSugar/Check.lhs
@@ -623,7 +623,7 @@ simplify_pat pat@(WildPat gt) = pat
 simplify_pat (VarPat id)      = WildPat (idType id) 
 simplify_pat (VarPatOut id _) = WildPat (idType id) 	-- Ignore the bindings
 simplify_pat (ParPat p)       = unLoc (simplify_lpat p)
-simplify_pat (LazyPat p)      = WildPat (hsPatType p)	-- For overlap and exhaustiveness checking
+simplify_pat (LazyPat p)      = WildPat (hsLPatType p)	-- For overlap and exhaustiveness checking
 							-- purposes, a ~pat is like a wildcard
 simplify_pat (BangPat p)      = unLoc (simplify_lpat p)
 simplify_pat (AsPat id p)     = unLoc (simplify_lpat p)