From b493a9be142e15ebd1cb32c61b0fd2ac39b703c3 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Tue, 15 Apr 2025 19:36:11 +0200
Subject: Avoid head usage in Main

---
 src/Main.hs | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/src/Main.hs b/src/Main.hs
index dbdbb40..e69c672 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -133,9 +133,11 @@ main = do
         putStrLn versionLine
         exitSuccess
 
-    getPermissions (head $ words $ optDefaultTool $ optTest opts) >>= \perms -> do
-        when (not $ executable perms) $ do
-            fail $ optDefaultTool (optTest opts) <> " is not executable"
+    case words $ optDefaultTool $ optTest opts of
+        (path : _) -> getPermissions path >>= \perms -> do
+            when (not $ executable perms) $ do
+                fail $ "‘" <> path <> "’ is not executable"
+        _ -> fail $ "invalid tool argument: ‘" <> optDefaultTool (optTest opts) <> "’"
 
     files <- if not (null ofiles)
         then return $ flip map ofiles $ \ofile ->
-- 
cgit v1.2.3