diff options
Diffstat (limited to 'compiler/rename/RnPat.hs')
| -rw-r--r-- | compiler/rename/RnPat.hs | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/compiler/rename/RnPat.hs b/compiler/rename/RnPat.hs index 0ec15a969f..7e41bec9d2 100644 --- a/compiler/rename/RnPat.hs +++ b/compiler/rename/RnPat.hs @@ -446,6 +446,11 @@ rnPatAndThen mk (TuplePat pats boxed _) ; pats' <- rnLPatsAndThen mk pats ; return (TuplePat pats' boxed []) } +rnPatAndThen mk (SumPat pat alt arity _) + = do { pat <- rnLPatAndThen mk pat + ; return (SumPat pat alt arity PlaceHolder) + } + -- If a splice has been run already, just rename the result. rnPatAndThen mk (SplicePat (HsSpliced mfs (HsSplicedPat pat))) = SplicePat . HsSpliced mfs . HsSplicedPat <$> rnPatAndThen mk pat |