X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=utils%2Fgenprimopcode%2FMain.hs;h=0e7c815f44d16b9e0b6b47a7f321bdea5827dc32;hb=84bd33df44c6f52c5517405dd1bb968a7ccdd154;hp=fa4973a7af2919aa05f4bed07a57a223d46ef9f0;hpb=03ffa2bfa6c31dc6bcdcacecc2bdb3bbabd800a9;p=ghc-hetmet.git

diff --git a/utils/genprimopcode/Main.hs b/utils/genprimopcode/Main.hs
index fa4973a..0e7c815 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