-beginMake [] = throwDyn (UsageError "no input files")
-beginMake (_:_:_) = throwDyn (UsageError "only one module allowed with --make")
-{-
-beginMake [mod] = do
- state <- cmInit ""{-ToDo:remove-} pkg_details
- cmLoadModule state (mkModuleName mod)
--}
+beginMake :: PackageConfigInfo -> [String] -> IO ()
+beginMake pkg_details mods
+ = do case mods of
+ [] -> throwDyn (UsageError "no input files")
+ [mod] -> do state <- cmInit pkg_details Batch
+ cmLoadModule state (mkModuleName mod)
+ return ()
+ _ -> throwDyn (UsageError "only one module allowed with --make")
+
+beginInteractive pkg_details mods
+ = do state <- cmInit pkg_details Interactive
+ case mods of
+ [] -> return ()
+ [mod] -> do cmLoadModule state (mkModuleName mod); return ()
+ _ -> throwDyn (UsageError
+ "only one module allowed with --interactive")
+ interactiveUI state
+