From 6df9942f5de9ab4c95e7e5d2b19f0ad0559e7373 Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Fri, 4 Feb 2005 15:42:54 +0000
Subject: [PATCH] [project @ 2005-02-04 15:42:54 by simonpj] Comments and type
 sig

---
 ghc/compiler/main/CmdLineOpts.lhs |    2 ++
 1 file changed, 2 insertions(+)

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