From: Simon Marlow <marlowsd@gmail.com>
Date: Thu, 9 Dec 2010 11:58:44 +0000 (+0000)
Subject: fix warnings
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=b54e12fc3ae9f309e1531e10048d58bea5b65b13;hp=a278f3f02d09bc32b0a75d4a04d710090cde250f

fix warnings
---

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