diff options
author | Ben Gamari <bgamari.foss@gmail.com> | 2018-04-07 13:32:58 -0400 |
---|---|---|
committer | Ben Gamari <ben@smart-cactus.org> | 2018-04-10 11:36:00 -0400 |
commit | c054162ae151ff82d43e504836784a7bc7827d9f (patch) | |
tree | 12624f0772507a0eb299fbbac6f0cd1893837d0c /compiler/hsSyn/Convert.hs | |
parent | 2534164aefd346c7c51b70e8e8c49aa881dd9f85 (diff) | |
download | haskell-c054162ae151ff82d43e504836784a7bc7827d9f.tar.gz |
Revert "Fix #14838 by marking TH-spliced code as FromSource"
This reverts commit ffb2738f86c4e4c3f0eaacf0a95d7326fdd2e383.
Due to #14987.
Reviewers: goldfire, RyanGlScott
Reviewed By: RyanGlScott
Subscribers: RyanGlScott, thomie, carter
GHC Trac Issues: #14987, #14838
Differential Revision: https://phabricator.haskell.org/D4545
Diffstat (limited to 'compiler/hsSyn/Convert.hs')
-rw-r--r-- | compiler/hsSyn/Convert.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/hsSyn/Convert.hs b/compiler/hsSyn/Convert.hs index f766074ef3..285d2e936e 100644 --- a/compiler/hsSyn/Convert.hs +++ b/compiler/hsSyn/Convert.hs @@ -145,7 +145,7 @@ cvtDec (TH.ValD pat body ds) | TH.VarP s <- pat = do { s' <- vNameL s ; cl' <- cvtClause (mkPrefixFunRhs s') (Clause [] body ds) - ; returnJustL $ Hs.ValD $ mkFunBind FromSource s' [cl'] } + ; returnJustL $ Hs.ValD $ mkFunBind s' [cl'] } | otherwise = do { pat' <- cvtPat pat @@ -164,7 +164,7 @@ cvtDec (TH.FunD nm cls) | otherwise = do { nm' <- vNameL nm ; cls' <- mapM (cvtClause (mkPrefixFunRhs nm')) cls - ; returnJustL $ Hs.ValD $ mkFunBind FromSource nm' cls' } + ; returnJustL $ Hs.ValD $ mkFunBind nm' cls' } cvtDec (TH.SigD nm typ) = do { nm' <- vNameL nm |