diff options
Diffstat (limited to 'compiler/GHC/HsToCore/Match.hs')
| -rw-r--r-- | compiler/GHC/HsToCore/Match.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/GHC/HsToCore/Match.hs b/compiler/GHC/HsToCore/Match.hs index d27f522a8d..4663a02aaa 100644 --- a/compiler/GHC/HsToCore/Match.hs +++ b/compiler/GHC/HsToCore/Match.hs @@ -831,10 +831,10 @@ matchWrapper ctxt scrs (MG { mg_alts = L _ matches' $ replicate (length (grhssGRHSs m)) initNablas is_pat_syn_match :: Origin -> LMatch GhcTc (LHsExpr GhcTc) -> Bool - is_pat_syn_match Generated (L _ (Match _ _ [l_pat] _)) = isPatSyn l_pat + is_pat_syn_match (Generated _) (L _ (Match _ _ [l_pat] _)) = isPatSyn l_pat is_pat_syn_match _ _ = False non_wc :: Origin -> LMatch GhcTc (LHsExpr GhcTc) -> Bool - non_wc Generated (L _ (Match _ _ ([L _ (WildPat _)]) _)) = False + non_wc (Generated _) (L _ (Match _ _ ([L _ (WildPat _)]) _)) = False non_wc _ _ = True matchEquations :: HsMatchContext GhcRn |