diff options
Diffstat (limited to 'compiler/GHC/ThToHs.hs')
| -rw-r--r-- | compiler/GHC/ThToHs.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/compiler/GHC/ThToHs.hs b/compiler/GHC/ThToHs.hs index 63055bbd48..87fc2d9750 100644 --- a/compiler/GHC/ThToHs.hs +++ b/compiler/GHC/ThToHs.hs @@ -180,7 +180,7 @@ cvtDec :: TH.Dec -> CvtM (Maybe (LHsDecl GhcPs)) cvtDec (TH.ValD pat body ds) | TH.VarP s <- pat = do { s' <- vNameN s - ; cl' <- cvtClause (mkPrefixFunRhs s') (Clause [] body ds) + ; cl' <- cvtClause (mkPrefixFunRhs (mapLoc CtxIdRdrName s')) (Clause [] body ds) ; th_origin <- getOrigin ; returnJustLA $ Hs.ValD noExtField $ mkFunBind th_origin s' [cl'] } @@ -201,7 +201,7 @@ cvtDec (TH.FunD nm cls) <+> text "has no equations") | otherwise = do { nm' <- vNameN nm - ; cls' <- mapM (cvtClause (mkPrefixFunRhs nm')) cls + ; cls' <- mapM (cvtClause (mkPrefixFunRhs (mapLoc CtxIdRdrName nm'))) cls ; th_origin <- getOrigin ; returnJustLA $ Hs.ValD noExtField $ mkFunBind th_origin nm' cls' } @@ -438,7 +438,7 @@ cvtDec (TH.PatSynD nm args dir pat) cvtDir _ Unidir = return Unidirectional cvtDir _ ImplBidir = return ImplicitBidirectional cvtDir n (ExplBidir cls) = - do { ms <- mapM (cvtClause (mkPrefixFunRhs n)) cls + do { ms <- mapM (cvtClause (mkPrefixFunRhs (mapLoc CtxIdRdrName n))) cls ; th_origin <- getOrigin ; return $ ExplicitBidirectional $ mkMatchGroup th_origin (noLocA ms) } |