- case mods of
- [] -> return ()
- [mod] -> do cmLoadModule state mod; return ()
- _ -> throwDyn (UsageError
- "only one module allowed with --interactive")
- interactiveUI state
+ (state', ok, ms)
+ <- case mods of
+ [] -> return (state, True, [])
+ [mod] -> cmLoadModule state mod
+ _ -> throwDyn (UsageError
+ "only one module allowed with --interactive")
+ interactiveUI state' ms