From 3c03b674fbec2dddce744365ddc6b96daf398864 Mon Sep 17 00:00:00 2001
From: defanor <defanor@uberspace.net>
Date: Tue, 12 Dec 2017 23:42:10 +0300
Subject: Use dynamic program name in the --help message

---
 Pancake.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'Pancake.hs')

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
-- 
cgit v1.2.3