Commit ffdae812 authored by sewardj's avatar sewardj

[project @ 2000-12-12 10:02:57 by sewardj]

make it compile with #define NO_READLINE
parent 15d82a55
-----------------------------------------------------------------------------
-- $Id: InteractiveUI.hs,v 1.20 2000/11/28 14:41:54 sewardj Exp $
-- $Id: InteractiveUI.hs,v 1.21 2000/12/12 10:02:57 sewardj Exp $
--
-- GHC Interactive User Interface
--
......@@ -22,7 +22,9 @@ import Outputable
import Util
import Exception
#ifndef NO_READLINE
import Readline
#endif
import IOExts
import Numeric
......@@ -33,6 +35,7 @@ import Directory
import IO
import Char
-----------------------------------------------------------------------------
ghciWelcomeMsg = "\
......@@ -122,7 +125,8 @@ uiLoop = do
#ifndef NO_READLINE
l <- io (readline (moduleNameUserString (current_module st) ++ "> "))
#else
l <- io (hGetLine stdin)
l_ok <- io (hGetLine stdin)
let l = Just l_ok
#endif
case l of
Nothing -> exitGHCi
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment