From: Simon Marlow <simonmar@microsoft.com>
Date: Thu, 1 Jun 2006 12:14:35 +0000 (+0000)
Subject: fix non-Windows build
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=e53f09de573cdda360a72e94553b2eecd747497c

fix non-Windows build
---

diff --git a/compiler/ghci/InteractiveUI.hs b/compiler/ghci/InteractiveUI.hs
index b147bbd..c9de96f 100644
--- a/compiler/ghci/InteractiveUI.hs
+++ b/compiler/ghci/InteractiveUI.hs
@@ -363,8 +363,8 @@ runGHCi paths maybe_expr = do
 
   case maybe_expr of
 	Nothing -> 
-#if defined(mingw32_HOST_OS)
           do
+#if defined(mingw32_HOST_OS)
             -- The win32 Console API mutates the first character of 
             -- type-ahead when reading from it in a non-buffered manner. Work
             -- around this by flushing the input buffer of type-ahead characters,