diff options
author | Simon Peyton Jones <simonpj@microsoft.com> | 2015-01-08 15:54:39 +0000 |
---|---|---|
committer | Simon Peyton Jones <simonpj@microsoft.com> | 2015-01-08 15:57:39 +0000 |
commit | 9564bb8c84cbc0397a414e946cc8c28801f0fbe7 (patch) | |
tree | e9f3793a9ebd81b9c0961391c02122d85ea7de30 /compiler/vectorise | |
parent | 43e5a2216494004d2073a472af13239d004f2ed6 (diff) | |
download | haskell-9564bb8c84cbc0397a414e946cc8c28801f0fbe7.tar.gz |
Improve HsBang
Provoked by questions from Johan
- Improve comments, fix misleading stuff
- Add commented synonyms for HsSrcBang, HsImplBang, and use them throughout
- Rename HsUserBang to HsSrcBang
- Rename dataConStrictMarks to dataConSrcBangs
dataConRepBangs to dataConImplBangs
This renaming affects Haddock in a trivial way, hence submodule update
Diffstat (limited to 'compiler/vectorise')
-rw-r--r-- | compiler/vectorise/Vectorise/Type/TyConDecl.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/vectorise/Vectorise/Type/TyConDecl.hs b/compiler/vectorise/Vectorise/Type/TyConDecl.hs index 37a07f710d..7b4d5aaad0 100644 --- a/compiler/vectorise/Vectorise/Type/TyConDecl.hs +++ b/compiler/vectorise/Vectorise/Type/TyConDecl.hs @@ -177,7 +177,7 @@ vectDataCon dc ; liftDs $ buildDataCon fam_envs name' (dataConIsInfix dc) -- infix if the original is - (dataConStrictMarks dc) -- strictness as original constructor + (dataConSrcBangs dc) -- strictness as original constructor [] -- no labelled fields for now univ_tvs -- universally quantified vars [] -- no existential tvs for now |