[commit: ghc] wip/gadtpm: Changed LazyPat handling in PM Check (98e5217)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : wip/gadtpm
Link       : http://ghc.haskell.org/trac/ghc/changeset/98e521721d270866569f477348b3eae7482a2b20/ghc

>---------------------------------------------------------------

commit 98e521721d270866569f477348b3eae7482a2b20
Author: George Karachalias <george.karachalias at gmail.com>
Date:   Tue Jan 13 13:53:23 2015 +0100

    Changed LazyPat handling in PM Check


>---------------------------------------------------------------

98e521721d270866569f477348b3eae7482a2b20
 compiler/deSugar/Check.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/compiler/deSugar/Check.hs b/compiler/deSugar/Check.hs
index 770cb40..c469d3b 100644
--- a/compiler/deSugar/Check.hs
+++ b/compiler/deSugar/Check.hs
@@ -167,7 +167,8 @@ mViewPat :: Pat Id -> PmM [PmPat Id]
 mViewPat pat@(WildPat _) = pure <$> varFromPat pat
 mViewPat pat@(VarPat id) = return [PmVarPat (patTypeExpanded pat) id]
 mViewPat (ParPat p)      = mViewPat (unLoc p)
-mViewPat pat@(LazyPat _) = pure <$> varFromPat pat
+mViewPat (LazyPat p)     = mViewPat (unLoc p) -- NOT SURE.
+-- WAS: mViewPat pat@(LazyPat _) = pure <$> varFromPat pat
 mViewPat (BangPat p)     = mViewPat (unLoc p)
 mViewPat (AsPat _ p)     = mViewPat (unLoc p)
 mViewPat (SigPatOut p _) = mViewPat (unLoc p)