-- main command action
action :: [String] -> IO ()
action opts = do
    envs <- listEnvs
    let showMetaInfo = "--no-meta" `notElem` opts
    case length envs of
        0 -> putStrLn "No environments found."
        _ -> do
            putStrLn "Available environment(s):"
            mapM_ (showEnv showMetaInfo) envs

-- command short name
action :: [String] -> IO ()
action opts = do
    envs <- listEnvs
    let showMetaInfo = "--no-meta" `notElem` opts
    case length envs of
        0 -> putStrLn "No environments found."
        _ -> do
            putStrLn "Available environment(s):"
            mapM_ (showEnv showMetaInfo) envs

-- command short name
action opts = do
    envs <- listEnvs
    let showMetaInfo = "--no-meta" `notElem` opts
    case length envs of
        0 -> putStrLn "No environments found."
        _ -> do
            putStrLn "Available environment(s):"
            mapM_ (showEnv showMetaInfo) envs

-- command short name