Use dynamic program name in the --help message

1 files changed, 3 insertions, 1 deletions

diff --git a/Pancake.hs b/Pancake.hs
index 550dbb3..55bdf8d 100644
--- a/Pancake.hs
+++ b/Pancake.hs
@@ -354,4 +354,6 @@ main = do
     ([], [], []) -> run False
     ([OEmbedded], [], []) -> run True
     ([OVersion], [], []) -> putStrLn $ "pancake " ++ showVersion version
-    _ -> putStrLn $ usageInfo "Usage: pancake [option ...]" options
+    _ -> do
+      p <- getProgName
+      putStrLn $ usageInfo ("Usage: " ++ p ++ " [option ...]") options