diff options
| author | Austin Seipp <austin@well-typed.com> | 2014-04-27 21:11:23 -0500 |
|---|---|---|
| committer | Austin Seipp <austin@well-typed.com> | 2014-04-28 02:59:14 -0500 |
| commit | 4852a59875f1dc89c1821871fdabd6fda65b4534 (patch) | |
| tree | 85a94f13f5c946631b23a6f3aebadcb968c6e180 /utils/genprimopcode/Main.hs | |
| parent | fa5ac96970f99fe463d78ab424514ce28741804a (diff) | |
| download | haskell-wip/kill-extcore.tar.gz | |
Remove external corewip/kill-extcore
Signed-off-by: Austin Seipp <austin@well-typed.com>
Diffstat (limited to 'utils/genprimopcode/Main.hs')
| -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" ] |