diff options
| author | Joachim Breitner <mail@joachim-breitner.de> | 2014-03-16 18:39:27 +0100 |
|---|---|---|
| committer | Joachim Breitner <mail@joachim-breitner.de> | 2014-03-16 18:52:29 +0100 |
| commit | 5d59265acf6c61840e386842c506241f9e48f1ae (patch) | |
| tree | 43362593857a3891f9cbef2822e0b8d166b8ee17 /utils/genprimopcode/Main.hs | |
| parent | d59170b6deaee480640889e8a7eef5a863242562 (diff) | |
| download | haskell-5d59265acf6c61840e386842c506241f9e48f1ae.tar.gz | |
Remove support for "primclass"
This partly reverts commit e239753c349f925b576b72dc3445934cba8bcd50. Since
Coercible is exported via GHC.Types, so "primclass" is no longer
needed. The support for => in primops.pp is still required for coerce.
Diffstat (limited to 'utils/genprimopcode/Main.hs')
| -rw-r--r-- | utils/genprimopcode/Main.hs | 12 |
1 files changed, 0 insertions, 12 deletions
diff --git a/utils/genprimopcode/Main.hs b/utils/genprimopcode/Main.hs index 05d42faaef..c9d0d9cc5e 100644 --- a/utils/genprimopcode/Main.hs +++ b/utils/genprimopcode/Main.hs @@ -269,8 +269,6 @@ gen_hs_source (Info defaults entries) = hdr (PseudoOpSpec { name = n }) = wrapOp n ++ "," hdr (PrimTypeSpec { ty = TyApp (TyCon n) _ }) = wrapTy n ++ "," hdr (PrimTypeSpec {}) = error $ "Illegal type spec" - hdr (PrimClassSpec { cls = TyApp (TyCon n) _ }) = wrapTy n ++ "," - hdr (PrimClassSpec {}) = error "Illegal class spec" hdr (PrimVecTypeSpec { ty = TyApp (VecTyCon n _) _ }) = wrapTy n ++ "," hdr (PrimVecTypeSpec {}) = error $ "Illegal type spec" @@ -278,7 +276,6 @@ gen_hs_source (Info defaults entries) = ent o@(PrimOpSpec {}) = spec o ent o@(PrimVecOpSpec {}) = spec o ent o@(PrimTypeSpec {}) = spec o - ent o@(PrimClassSpec {}) = spec o ent o@(PrimVecTypeSpec {}) = spec o ent o@(PseudoOpSpec {}) = spec o @@ -302,8 +299,6 @@ gen_hs_source (Info defaults entries) = wrapOp n ++ " = let x = x in x" ] PrimTypeSpec { ty = t } -> [ "data " ++ pprTy t ] - PrimClassSpec { cls = t } -> - [ "class " ++ pprTy t ] PrimVecTypeSpec { ty = t } -> [ "data " ++ pprTy t ] Section { } -> [] @@ -497,13 +492,6 @@ gen_latex_doc (Info defaults entries) ++ d ++ "}{" ++ mk_options o ++ "}\n" - mk_entry (PrimClassSpec {cls=t,desc=d,opts=o}) = - "\\primclassspec{" - ++ latex_encode (mk_source_ty t) ++ "}{" - ++ latex_encode (mk_core_ty t) ++ "}{" - ++ d ++ "}{" - ++ mk_options o - ++ "}\n" mk_entry (PrimVecTypeSpec {}) = "" mk_entry (PseudoOpSpec {name=n,ty=t,desc=d,opts=o}) = |