From: simonpj <unknown>
Date: Fri, 4 Feb 2005 15:42:54 +0000 (+0000)
Subject: [project @ 2005-02-04 15:42:54 by simonpj]
X-Git-Tag: Initial_conversion_from_CVS_complete~1111
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=6df9942f5de9ab4c95e7e5d2b19f0ad0559e7373;p=ghc-hetmet.git

[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
--- 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