Use case matching instead of null

Using null followed by a head, tail, or a partial pattern match is
an anti-pattern. Use case matching instead.

src/ShellCheck/Parser.hs

@@ -329,12 +329,11 @@ getCurrentContexts = Ms.gets contextStack
 
 popContext = do
     v <- getCurrentContexts
-    if not $ null v
+    case v of
-        then do
+        (a:r) -> do
-            let (a:r) = v
             setCurrentContexts r
             return $ Just a
-        else
+        [] ->
             return Nothing
 
 pushContext c = do