diff options
| author | Manuel M T Chakravarty <chak@cse.unsw.edu.au> | 2011-11-04 15:22:02 +1100 |
|---|---|---|
| committer | Manuel M T Chakravarty <chak@cse.unsw.edu.au> | 2011-11-04 16:03:36 +1100 |
| commit | 5ee8081ac9bc6d747a1559e953fa0c3a04675a45 (patch) | |
| tree | 00cf551dc1dfcf488b13ea3586ea9d55aa2e527d /compiler/basicTypes | |
| parent | b30c6012c7552c874281050d40e5a59012b2c5e7 (diff) | |
| download | haskell-5ee8081ac9bc6d747a1559e953fa0c3a04675a45.tar.gz | |
Clean up and complete the vectorisation of type classes
Diffstat (limited to 'compiler/basicTypes')
| -rw-r--r-- | compiler/basicTypes/OccName.lhs | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/compiler/basicTypes/OccName.lhs b/compiler/basicTypes/OccName.lhs index def9bba9e4..0df37e4300 100644 --- a/compiler/basicTypes/OccName.lhs +++ b/compiler/basicTypes/OccName.lhs @@ -597,14 +597,14 @@ mkDataCOcc = mk_simple_deriv varName "$c" -- Vectorisation mkVectOcc, mkVectTyConOcc, mkVectDataConOcc, mkVectIsoOcc, mkPADFunOcc, mkPReprTyConOcc, mkPDataTyConOcc, mkPDataDataConOcc :: Maybe String -> OccName -> OccName -mkVectOcc = mk_simple_deriv_with varName "$v_" -mkVectTyConOcc = mk_simple_deriv_with tcName ":V_" -mkVectDataConOcc = mk_simple_deriv_with dataName ":VD_" -mkVectIsoOcc = mk_simple_deriv_with varName "$VI_" -mkPADFunOcc = mk_simple_deriv_with varName "$PA_" -mkPReprTyConOcc = mk_simple_deriv_with tcName ":VR_" -mkPDataTyConOcc = mk_simple_deriv_with tcName ":VP_" -mkPDataDataConOcc = mk_simple_deriv_with dataName ":VPD_" +mkVectOcc = mk_simple_deriv_with varName "$v" +mkVectTyConOcc = mk_simple_deriv_with tcName "V:" +mkVectDataConOcc = mk_simple_deriv_with dataName "VD:" +mkVectIsoOcc = mk_simple_deriv_with varName "$vi" +mkPADFunOcc = mk_simple_deriv_with varName "$pa" +mkPReprTyConOcc = mk_simple_deriv_with tcName "VR:" +mkPDataTyConOcc = mk_simple_deriv_with tcName "VP:" +mkPDataDataConOcc = mk_simple_deriv_with dataName "VPD:" mk_simple_deriv :: NameSpace -> String -> OccName -> OccName mk_simple_deriv sp px occ = mk_deriv sp px (occNameString occ) |