diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2010-12-09 11:58:44 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2010-12-09 11:58:44 +0000 |
| commit | b54e12fc3ae9f309e1531e10048d58bea5b65b13 (patch) | |
| tree | a6120bf8ee0689f2b6f99d2f5c82b77ede7ff24c /ghc | |
| parent | a278f3f02d09bc32b0a75d4a04d710090cde250f (diff) | |
| download | haskell-b54e12fc3ae9f309e1531e10048d58bea5b65b13.tar.gz | |
fix warnings
Diffstat (limited to 'ghc')
| -rw-r--r-- | ghc/InteractiveUI.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/ghc/InteractiveUI.hs b/ghc/InteractiveUI.hs index 31c1dba846..e22eaef83c 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 |