diff options
| author | Austin Seipp <austin@well-typed.com> | 2014-04-27 21:11:23 -0500 |
|---|---|---|
| committer | Austin Seipp <austin@well-typed.com> | 2014-05-03 11:18:04 -0500 |
| commit | 5bf22f06ef71f61094de7564dee770f136d5481a (patch) | |
| tree | 7121e4705dea853871b6d43dc587f78b68aeb99c /utils/genprimopcode | |
| parent | a05f8dd15b51db7e71ab783182548f1af6dd2ceb (diff) | |
| download | haskell-5bf22f06ef71f61094de7564dee770f136d5481a.tar.gz | |
Remove external core
Signed-off-by: Austin Seipp <austin@well-typed.com>
Diffstat (limited to 'utils/genprimopcode')
| -rw-r--r-- | utils/genprimopcode/Main.hs | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/utils/genprimopcode/Main.hs b/utils/genprimopcode/Main.hs index aa64094add..7fe375a7d2 100644 --- a/utils/genprimopcode/Main.hs +++ b/utils/genprimopcode/Main.hs @@ -118,7 +118,7 @@ main = getArgs >>= \args -> do s <- getContents case parse s of Left err -> error ("parse error at " ++ (show err)) - Right p_o_specs@(Info _ entries) + Right p_o_specs@(Info _ _) -> seq (sanityTop p_o_specs) ( case head args of @@ -187,9 +187,6 @@ main = getArgs >>= \args -> "--make-haskell-source" -> putStr (gen_hs_source p_o_specs) - "--make-ext-core-source" - -> putStr (gen_ext_core_source entries) - "--make-latex-doc" -> putStr (gen_latex_doc p_o_specs) @@ -215,7 +212,6 @@ known_args "--primop-vector-tycons", "--make-haskell-wrappers", "--make-haskell-source", - "--make-ext-core-source", "--make-latex-doc" ] |