chkStackCompatible :: StackTag ()
chkStackCompatible = do
  (exitc, _, _) <- runStk ["ls", "dependencies", "--help"]
  case exitc of
    ExitSuccess    -> return ()
    ExitFailure _e ->
      p (show exitc) >> error "You need stack version 1.7.1 or higher installed and in your PATH to use stack-tag"

-- | Get a list of relavant directories from stack using
-- the @stack path@ command
chkStackCompatible :: StackTag ()
chkStackCompatible = do
  (exitc, _, _) <- runStk ["ls", "dependencies", "--help"]
  case exitc of
    ExitSuccess    -> return ()
    ExitFailure _e ->
      p (show exitc) >> error "You need stack version 1.7.1 or higher installed and in your PATH to use stack-tag"

-- | Get a list of relavant directories from stack using
-- the @stack path@ command
chkStackCompatible = do
  (exitc, _, _) <- runStk ["ls", "dependencies", "--help"]
  case exitc of
    ExitSuccess    -> return ()
    ExitFailure _e ->
      p (show exitc) >> error "You need stack version 1.7.1 or higher installed and in your PATH to use stack-tag"

-- | Get a list of relavant directories from stack using
-- the @stack path@ command