diff options
| author | Hécate <hecate+gitlab@glitchbra.in> | 2020-12-30 00:48:38 +0100 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2021-01-17 05:49:17 -0500 |
| commit | 971a88a78105b207fb1e2e2614877fd080d2ccd1 (patch) | |
| tree | 252f164129b85d593bc84884eb2d045846a633b2 /compiler/GHC/Parser | |
| parent | 2facd1e94039cbd489ba0a7ce9ba2c5f53780afc (diff) | |
| download | haskell-971a88a78105b207fb1e2e2614877fd080d2ccd1.tar.gz | |
Remove unused extension pragmas from the compiler code base
Diffstat (limited to 'compiler/GHC/Parser')
| -rw-r--r-- | compiler/GHC/Parser/PostProcess.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/Parser/PostProcess.hs b/compiler/GHC/Parser/PostProcess.hs index 59280962d3..de94c185ea 100644 --- a/compiler/GHC/Parser/PostProcess.hs +++ b/compiler/GHC/Parser/PostProcess.hs @@ -982,7 +982,7 @@ checkPat loc (L l e@(PatBuilderVar (L _ c))) tyargs args | not (null args) && patIsRec c = add_hint SuggestRecursiveDo $ patFail l (ppr e) -checkPat loc (L _ (PatBuilderAppType f t)) tyargs args = do +checkPat loc (L _ (PatBuilderAppType f t)) tyargs args = checkPat loc f (t : tyargs) args checkPat loc (L _ (PatBuilderApp f e)) [] args = do p <- checkLPat e |