X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Ftypecheck%2FTcHsSyn.lhs;h=c2355a04aaf346f0e82db881e8ed8e2fe8c5ea38;hb=3c245de9199f522f75ace92219256badbd928bd6;hp=c938a7638ff6446f416fee47ffbd4f72dcaada01;hpb=5d3051c66796dcf884b052f9e4afc3ed19b9f514;p=ghc-hetmet.git

diff --git a/ghc/compiler/typecheck/TcHsSyn.lhs b/ghc/compiler/typecheck/TcHsSyn.lhs
index c938a76..c2355a0 100644
--- a/ghc/compiler/typecheck/TcHsSyn.lhs
+++ b/ghc/compiler/typecheck/TcHsSyn.lhs
@@ -72,7 +72,7 @@ mkVanillaTuplePat pats box
   = TuplePat pats box (mkTupleTy box (length pats) (map hsPatType pats))
 
 hsPatType :: OutPat Id -> Type
-hsPatType pat = pat_type (unLoc pat)
+hsPatType (L _ pat) = pat_type pat
 
 pat_type (ParPat pat)		   = hsPatType pat
 pat_type (WildPat ty)		   = ty