anchor.diff:      erlduce_cli:ensure_connect(),
       [ case edfs:mkdir(Path) of
           {ok, _Inode} -> ok;
  -        Error -> {error, {Path,Error}}
  -    end || Path <- Paths].
  +        {error,Reason} ->
  +            io:fwrite(standard_error,"error: ~p: ~p~n",[Path,Reason])
  +    end || Path <- Paths],
  +    halt().
   
   
   cmd_mkfile(Args) ->
  
positive.code:             {error, Reason} ->
                  erlduce_utils:cli_die("~p",[Reason])
          end
      || Path <- Paths].
  
  
  cmd_format(Args) ->
      erlduce_utils:getopts([], Args, [], 0, 0, "edfs format","\nFormat EDFS storage"),
      erlduce_cli:ensure_connect(),
      edfs:format().
  
  
  cmd_import(Args) ->
  
negative.code:     erlduce_cli:ensure_connect(),
      [ case edfs:mkfile(Path) of
          {ok, _Inode} -> ok;
          {error,Reason} ->
              io:fwrite(standard_error,"error: ~p: ~p~n",[Path,Reason])
      end || Path <- Paths],
      halt().
  
  
  cmd_rm(Args) ->
      {_, Paths} = erlduce_utils:getopts([], Args, [], 1, infinity, "edfs rm", "[FILE ...]\nRemove FILE(s)"),
      erlduce_cli:ensure_connect(),
      [case edfs:rm(Path) of
          ok -> ok;
          {error,Reason} ->
              io:fwrite(standard_error,"error: ~p: ~p~n",[Path,Reason])
      end || Path <- Paths ],
      halt().
  
  
  %% ===================================================================
  