From: simonmar <unknown>
Date: Fri, 30 Apr 2004 15:51:10 +0000 (+0000)
Subject: [project @ 2004-04-30 15:51:10 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~1881
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=3e40c2a03b0c200c5cfce2f4fba8e5fdfe70f6f8;p=ghc-hetmet.git

[project @ 2004-04-30 15:51:10 by simonmar]
wibble
---

diff --git a/ghc/compiler/main/DriverState.hs b/ghc/compiler/main/DriverState.hs
index b6f51ae..543a487 100644
--- a/ghc/compiler/main/DriverState.hs
+++ b/ghc/compiler/main/DriverState.hs
@@ -1,5 +1,5 @@
 -----------------------------------------------------------------------------
--- $Id: DriverState.hs,v 1.103 2004/04/30 09:46:58 simonmar Exp $
+-- $Id: DriverState.hs,v 1.104 2004/04/30 15:51:10 simonmar Exp $
 --
 -- Settings for the driver
 --
@@ -65,7 +65,7 @@ setMode m flag = do
 
 isCompManagerMode DoMake        = True
 isCompManagerMode DoInteractive = True
-isCompManagerMode DoEval        = True
+isCompManagerMode (DoEval _)    = True
 isCompManagerMode _             = False
 
 -----------------------------------------------------------------------------