From: sewardj <unknown>
Date: Mon, 23 Apr 2001 16:50:48 +0000 (+0000)
Subject: [project @ 2001-04-23 16:50:48 by sewardj]
X-Git-Tag: Approximately_9120_patches~2119
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=13890651414e9288a83be70d95456f5eaa256aae;p=ghc-hetmet.git

[project @ 2001-04-23 16:50:48 by sewardj]
Generate a plausible value for NO_READLINE.
---

diff --git a/ghc/compiler/ghci/InteractiveUI.hs b/ghc/compiler/ghci/InteractiveUI.hs
index cce4827..082d565 100644
--- a/ghc/compiler/ghci/InteractiveUI.hs
+++ b/ghc/compiler/ghci/InteractiveUI.hs
@@ -1,5 +1,5 @@
 -----------------------------------------------------------------------------
--- $Id: InteractiveUI.hs,v 1.60 2001/03/28 16:51:03 simonmar Exp $
+-- $Id: InteractiveUI.hs,v 1.61 2001/04/23 16:50:48 sewardj Exp $
 --
 -- GHC Interactive User Interface
 --
@@ -12,6 +12,12 @@ module InteractiveUI ( interactiveUI, ghciWelcomeMsg ) where
 
 #include "HsVersions.h"
 
+#if HAVE_READLINE_4_2 == 1 || HAVE_READLINE_4 == 1
+#undef NO_READLINE
+#else
+#define NO_READLINE
+#endif
+
 import CompManager
 import CmStaticInfo
 import ByteCodeLink