Use a pattern match instead of null and head in checkCommand

src/ShellCheck/Checks/Commands.hs

@@ -20,6 +20,7 @@
 {-# LANGUAGE TemplateHaskell #-}
 {-# LANGUAGE FlexibleContexts #-}
 {-# LANGUAGE MultiWayIf #-}
+{-# LANGUAGE PatternGuards #-}
 
 -- This module contains checks that examine specific commands by name.
 module ShellCheck.Checks.Commands (checker, optionalChecks, ShellCheck.Checks.Commands.runTests) where
@@ -181,16 +182,15 @@ checkCommand :: M.Map CommandName (Token -> Analysis) -> Token -> Analysis
 checkCommand map t@(T_SimpleCommand id cmdPrefix (cmd:rest)) = sequence_ $ do
     name <- getLiteralString cmd
     return $
-        if '/' `elem` name
+        if | '/' `elem` name ->
-        then
+               M.findWithDefault nullCheck (Basename $ basename name) map t
-            M.findWithDefault nullCheck (Basename $ basename name) map t
+           | name == "builtin", (h:_) <- rest ->
-        else if name == "builtin" && not (null rest) then
+               let t' = T_SimpleCommand id cmdPrefix rest
-            let t' = T_SimpleCommand id cmdPrefix rest
+                   selectedBuiltin = onlyLiteralString h
-                selectedBuiltin = onlyLiteralString $ head rest
+               in M.findWithDefault nullCheck (Exactly selectedBuiltin) map t'
-            in M.findWithDefault nullCheck (Exactly selectedBuiltin) map t'
+           | otherwise -> do
-        else do
+               M.findWithDefault nullCheck (Exactly name) map t
-            M.findWithDefault nullCheck (Exactly name) map t
+               M.findWithDefault nullCheck (Basename name) map t
-            M.findWithDefault nullCheck (Basename name) map t
 
   where
     basename = reverse . takeWhile (/= '/') . reverse