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

Comments and type sig

diff --git a/ghc/compiler/main/CmdLineOpts.lhs b/ghc/compiler/main/CmdLineOpts.lhs
index 2d4b4e9..c1f8880 100644 (file)
--- a/ghc/compiler/main/CmdLineOpts.lhs
+++ b/ghc/compiler/main/CmdLineOpts.lhs
@@ -453,6 +453,8 @@ getVerbFlag dflags
 -----------------------------------------------------------------------------
 -- Setting the optimisation level
 
+updOptLevel :: Int -> DynFlags -> DynFlags
+-- Set dynflags appropriate to the optimisation level
 updOptLevel n dfs
   = if (n >= 1)
      then dfs2{ hscTarget = HscC, optLevel = n } -- turn on -fvia-C with -O