Commit 6df9942f authored by simonpj's avatar simonpj
Browse files

[project @ 2005-02-04 15:42:54 by simonpj]

Comments and type sig
parent c592dcee
...@@ -453,6 +453,8 @@ getVerbFlag dflags ...@@ -453,6 +453,8 @@ getVerbFlag dflags
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
-- Setting the optimisation level -- Setting the optimisation level
updOptLevel :: Int -> DynFlags -> DynFlags
-- Set dynflags appropriate to the optimisation level
updOptLevel n dfs updOptLevel n dfs
= if (n >= 1) = if (n >= 1)
then dfs2{ hscTarget = HscC, optLevel = n } -- turn on -fvia-C with -O then dfs2{ hscTarget = HscC, optLevel = n } -- turn on -fvia-C with -O
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment