diff options
Diffstat (limited to 'compiler/parser/RdrHsSyn.lhs')
| -rw-r--r-- | compiler/parser/RdrHsSyn.lhs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/compiler/parser/RdrHsSyn.lhs b/compiler/parser/RdrHsSyn.lhs index 8016a4530f..b80a3424c0 100644 --- a/compiler/parser/RdrHsSyn.lhs +++ b/compiler/parser/RdrHsSyn.lhs @@ -668,6 +668,7 @@ checkAPat msg loc e0 = do RecordCon c _ (HsRecFields fs dd) -> do fs <- mapM (checkPatField msg) fs return (ConPatIn c (RecCon (HsRecFields fs dd))) + HsSpliceE s -> return (SplicePat s) HsQuasiQuoteE q -> return (QuasiQuotePat q) _ -> patFail msg loc e0 |