diff options
Diffstat (limited to 'compiler/basicTypes/OccName.lhs')
-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) |