From b4ad75e9692f104d96b4d6a76ec0eed362cecd94 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Tue, 18 Sep 2007 21:57:52 +0000 Subject: [PATCH] Catch any exceptions thrown by getEnv; fixes #1704 --- compiler/ghci/InteractiveUI.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/compiler/ghci/InteractiveUI.hs b/compiler/ghci/InteractiveUI.hs index e0fddac..6d7bcfb 100644 --- a/compiler/ghci/InteractiveUI.hs +++ b/compiler/ghci/InteractiveUI.hs @@ -1811,8 +1811,9 @@ findBreakByCoord mb_file (line, col) arr -- TERM to vt100 for other reasons) we get carets. -- We really ought to use a proper termcap/terminfo library. do_bold :: Bool -do_bold = unsafePerformIO (System.Environment.getEnv "TERM") `elem` - ["xterm", "linux"] +do_bold = unsafePerformIO mTerm `elem` ["xterm", "linux"] + where mTerm = System.Environment.getEnv "TERM" + `Exception.catch` \e -> return "TERM not set" start_bold :: String start_bold = "\ESC[1m" -- 1.7.10.4