-{-# OPTIONS -W -fno-warn-incomplete-patterns #-}
+{-# OPTIONS -fno-warn-incomplete-patterns #-}
-----------------------------------------------------------------------------
--- $Id: Main.hs,v 1.34 2000/11/24 17:02:02 simonpj Exp $
+-- $Id: Main.hs,v 1.36 2000/12/11 16:42:26 sewardj Exp $
--
-- GHC Driver program
--
#else
beginInteractive mods
= do state <- cmInit Interactive
- (state', ok, ms)
- <- case mods of
- [] -> return (state, True, [])
- [mod] -> cmLoadModule state mod
+ let mod = case mods of
+ [] -> Nothing
+ [mod] -> Just mod
_ -> throwDyn (UsageError
"only one module allowed with --interactive")
- interactiveUI state' ms
+ interactiveUI state mod
#endif