- let min_depth = optMinDepth opts
- let (node_data, inst_data) =
- case optMaster opts of
- "" -> (readFile $ optNodef opts,
- readFile $ optInstf opts)
- host -> (readData getNodes host,
- readData getInstances host)
+ unless (null args) $ do
+ hPutStrLn stderr "Error: this program doesn't take any arguments."
+ exitWith $ ExitFailure 1