diff options
| author | Simon Marlow <simonmar@microsoft.com> | 2007-05-10 13:50:07 +0000 |
|---|---|---|
| committer | Simon Marlow <simonmar@microsoft.com> | 2007-05-10 13:50:07 +0000 |
| commit | 84bd33df44c6f52c5517405dd1bb968a7ccdd154 (patch) | |
| tree | 0d49459b2336ba1849820aa4c5f29ee7b5c888ba /utils/genprimopcode | |
| parent | 3211a6a00826b85f732715e59c7c1a81b0586f14 (diff) | |
| download | haskell-84bd33df44c6f52c5517405dd1bb968a7ccdd154.tar.gz | |
remove now-unused usage information (#1003)
Diffstat (limited to 'utils/genprimopcode')
| -rw-r--r-- | utils/genprimopcode/Main.hs | 13 |
1 files changed, 0 insertions, 13 deletions
diff --git a/utils/genprimopcode/Main.hs b/utils/genprimopcode/Main.hs index fa4973a7af..0e7c815f44 100644 --- a/utils/genprimopcode/Main.hs +++ b/utils/genprimopcode/Main.hs @@ -62,11 +62,6 @@ main = getArgs >>= \args -> "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) @@ -97,7 +92,6 @@ known_args "--needs-wrapper", "--can-fail", "--strictness", - "--usage", "--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) ++ "}{" - ++ latex_encode (mk_usage o) ++ "}" 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 -> "" - 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 |