From b54e12fc3ae9f309e1531e10048d58bea5b65b13 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Thu, 9 Dec 2010 11:58:44 +0000 Subject: [PATCH] fix warnings --- ghc/InteractiveUI.hs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/ghc/InteractiveUI.hs b/ghc/InteractiveUI.hs index 31c1dba..e22eaef 100644 --- a/ghc/InteractiveUI.hs +++ b/ghc/InteractiveUI.hs @@ -294,11 +294,14 @@ findEditor = do foreign import ccall unsafe "rts_isProfiled" isProfiled :: IO CInt +default_progname, default_prompt, default_stop :: String default_progname = "" -default_args = [] default_prompt = "%s> " default_stop = "" +default_args :: [String] +default_args = [] + interactiveUI :: [(FilePath, Maybe Phase)] -> Maybe [String] -> Ghc () interactiveUI srcs maybe_exprs = do -- 1.7.10.4