@@ -21,8 +21,9 @@ data Opts = Opts { really :: Bool,
21 interface :: Bool,
21 interface :: Bool,
22 output :: FilePath }
22 output :: FilePath }
24−showUsage = do putStrLn "A code generator which is intended to be called by the compiler, not by a user.\n"
24+showUsage = do putStrLn "A code generator which is intended to be called by the compiler, not by a user."
25+ putStrLn "To call the code generator manually, pass the --yes-really option.\n"
25− putStrLn "Usage: idris-codegen-c --yes-really <ibc-files> [-o <output-file>]"
26+ putStrLn "Usage: idris-codegen-c [--yes-really] <ibc-files> [-o <output-file>]"
26 exitWith ExitSuccess
27 exitWith ExitSuccess
28getOpts :: IO Opts
29getOpts :: IO Opts