projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
remove now-unused usage information (#1003)
[ghc-hetmet.git]
/
utils
/
genprimopcode
/
Main.hs
diff --git
a/utils/genprimopcode/Main.hs
b/utils/genprimopcode/Main.hs
index
fa4973a
..
0e7c815
100644
(file)
--- a/
utils/genprimopcode/Main.hs
+++ b/
utils/genprimopcode/Main.hs
@@
-62,11
+62,6
@@
main = getArgs >>= \args ->
"strictness"
"primOpStrictness" p_o_specs)
"strictness"
"primOpStrictness" p_o_specs)
- "--usage"
- -> putStr (gen_switch_from_attribs
- "usage"
- "primOpUsg" p_o_specs)
-
"--primop-primop-info"
-> putStr (gen_primop_info p_o_specs)
"--primop-primop-info"
-> putStr (gen_primop_info p_o_specs)
@@
-97,7
+92,6
@@
known_args
"--needs-wrapper",
"--can-fail",
"--strictness",
"--needs-wrapper",
"--can-fail",
"--strictness",
- "--usage",
"--primop-primop-info",
"--primop-tag",
"--primop-list",
"--primop-primop-info",
"--primop-tag",
"--primop-list",
@@
-259,7
+253,6
@@
gen_latex_doc (Info defaults entries)
++ mk_needs_wrapper o ++ "}{"
++ mk_can_fail o ++ "}{"
++ latex_encode (mk_strictness o) ++ "}{"
++ mk_needs_wrapper o ++ "}{"
++ mk_can_fail o ++ "}{"
++ latex_encode (mk_strictness o) ++ "}{"
- ++ latex_encode (mk_usage o)
++ "}"
mk_has_side_effects o = mk_bool_opt o "has_side_effects" "Has side effects." "Has no side effects."
++ "}"
mk_has_side_effects o = mk_bool_opt o "has_side_effects" "Has side effects." "Has no side effects."
@@
-281,12
+274,6
@@
gen_latex_doc (Info defaults entries)
Just _ -> error "Boolean value for strictness"
Nothing -> ""
Just _ -> error "Boolean value for strictness"
Nothing -> ""
- mk_usage o =
- case lookup_attrib "usage" o of
- Just (OptionString _ s) -> s -- for now
- Just _ -> error "Boolean value for usage"
- Nothing -> ""
-
zencode xs =
case maybe_tuple xs of
Just n -> n -- Tuples go to Z2T etc
zencode xs =
case maybe_tuple xs of
Just n -> n -- Tuples go to Z2T etc