diff options
| author | simonpj <unknown> | 2003-02-07 09:39:03 +0000 |
|---|---|---|
| committer | simonpj <unknown> | 2003-02-07 09:39:03 +0000 |
| commit | 7f82f577d34b201b7345794ece8b9dbb680a0257 (patch) | |
| tree | 9ee981bce6d7238685b0348eee68b3659da540de /ghc/compiler/main/DriverFlags.hs | |
| parent | e02e080ada5cd734206164ca755d5ef9de2ff138 (diff) | |
| download | haskell-7f82f577d34b201b7345794ece8b9dbb680a0257.tar.gz | |
[project @ 2003-02-07 09:39:02 by simonpj]
Fix minor bugs in simplifier iteration control
Diffstat (limited to 'ghc/compiler/main/DriverFlags.hs')
| -rw-r--r-- | ghc/compiler/main/DriverFlags.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ghc/compiler/main/DriverFlags.hs b/ghc/compiler/main/DriverFlags.hs index 62e6524e32..14fa847987 100644 --- a/ghc/compiler/main/DriverFlags.hs +++ b/ghc/compiler/main/DriverFlags.hs @@ -1,5 +1,5 @@ ----------------------------------------------------------------------------- --- $Id: DriverFlags.hs,v 1.111 2003/02/04 15:09:40 simonpj Exp $ +-- $Id: DriverFlags.hs,v 1.112 2003/02/07 09:39:02 simonpj Exp $ -- -- Driver flags -- @@ -314,7 +314,7 @@ static_flags = , ( "fno-asm-mangling" , NoArg (writeIORef v_Do_asm_mangling False) ) , ( "fmax-simplifier-iterations", - Prefix (writeIORef v_MaxSimplifierIterations . read) ) + PrefixPred (all isDigit) (writeIORef v_MaxSimplifierIterations . read) ) , ( "frule-check", SepArg (\s -> writeIORef v_RuleCheck (Just s)) ) |