X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2FInteractiveUI.hs;h=e22eaef83ceae73c4bbb302a04bd17036bf46cf2;hb=4d8c7c976104d2e39a1183967ec0f254a0fc0a47;hp=31c1dba846df5cde9a548a3c1bac21cca81a5e62;hpb=e639fb4700db196a81734f69f96f6d57767fc23d;p=ghc-hetmet.git

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 = "<interactive>"
-default_args = []
 default_prompt = "%s> "
 default_stop = ""
 
+default_args :: [String]
+default_args = []
+
 interactiveUI :: [(FilePath, Maybe Phase)] -> Maybe [String]
               -> Ghc ()
 interactiveUI srcs maybe_exprs = do