diff options
Diffstat (limited to 'compiler/parser/RdrHsSyn.hs')
| -rw-r--r-- | compiler/parser/RdrHsSyn.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/compiler/parser/RdrHsSyn.hs b/compiler/parser/RdrHsSyn.hs index 6bf8bc3c76..06c6564716 100644 --- a/compiler/parser/RdrHsSyn.hs +++ b/compiler/parser/RdrHsSyn.hs @@ -847,7 +847,8 @@ checkAPat msg loc e0 = do L _ (HsForAllTy Implicit _ _ (L _ []) ty) -> ty other -> other - return (SigPatIn e (mkHsWithBndrs t')) + return (SigPatIn e (mkHsWithBndrs + (L (getLoc t) (HsParTy t')))) -- n+k patterns OpApp (L nloc (HsVar n)) (L _ (HsVar plus)) _ |