path: root/lib/dialyzer/test/small_SUITE_data/src/flatten.erl

%%%-------------------------------------------------------------------
%%% File    : flatten.erl
%%% Author  : Tobias Lindahl <[email protected]>
%%% Description :
%%%
%%% Created :  4 Nov 2007 by Tobias Lindahl <[email protected]>
%%%-------------------------------------------------------------------
-module(flatten).

-export([t/1]).

t(Dir) ->
  case file:list_dir(Dir) of
    {ok,FileList} ->
      FileList;
    {error,Reason} ->
      {error,lists:flatten("Can't open directory "++Dir++": "++Reason)}
  end.