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

Comments and type sig

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