-- | Tree
lsAction :: Action IO
lsAction =
    withNonOption (nodeOptType (-1)) $ \nodeP ->
    foldingOpts filters $ \fltr ->
    withOption sortOpt $ \srt ->
    handler $ fromNodeP nodeP >>= \case
        Nothing -> return ()
        Just node -> do
            node' <- if node == -1 then use viewContext else return node
            printChildren fltr srt node'
lsAction :: Action IO
lsAction =
    withNonOption (nodeOptType (-1)) $ \nodeP ->
    foldingOpts filters $ \fltr ->
    withOption sortOpt $ \srt ->
    handler $ fromNodeP nodeP >>= \case
        Nothing -> return ()
        Just node -> do
            node' <- if node == -1 then use viewContext else return node
            printChildren fltr srt node'
lsAction =
    withNonOption (nodeOptType (-1)) $ \nodeP ->
    foldingOpts filters $ \fltr ->
    withOption sortOpt $ \srt ->
    handler $ fromNodeP nodeP >>= \case
        Nothing -> return ()
        Just node -> do
            node' <- if node == -1 then use viewContext else return node
            printChildren fltr srt node'