From 7510eeadaf490f7e7f6c9ab3f06ca500c1d95cc0 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Mon, 17 Mar 2008 10:36:17 +0000 Subject: [PATCH] Follow changes in editline --- compiler/ghci/InteractiveUI.hs | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/compiler/ghci/InteractiveUI.hs b/compiler/ghci/InteractiveUI.hs index ed90e99..fbc5354 100644 --- a/compiler/ghci/InteractiveUI.hs +++ b/compiler/ghci/InteractiveUI.hs @@ -317,10 +317,9 @@ interactiveUI session srcs maybe_exprs = do when is_tty $ do Readline.initialize - -- XXX Should we be catching exceptions thrown by readHistory? withGhcAppData (\dir -> Readline.readHistory (dir "ghci_history")) - (return ()) + (return True) Readline.setAttemptedCompletionFunction (Just completeWord) --Readline.parseAndBind "set show-all-if-ambiguous 1" @@ -356,9 +355,8 @@ interactiveUI session srcs maybe_exprs = do #ifdef USE_EDITLINE Readline.stifleHistory 100 - -- XXX Should we be catching exceptions thrown by readHistory? withGhcAppData (\dir -> Readline.writeHistory (dir "ghci_history")) - (return ()) + (return True) Readline.resetTerminal Nothing #endif -- 1.7.10.4