src/hz.erl

@@ -783,9 +783,13 @@ contract_code(ID) ->
     end.
 
 
--spec contract_source(ID) -> {ok, Bytecode} | {error, Reason}
+-spec contract_source(ID) -> Result
     when ID     :: contract_id(),
-         Bytecode :: contract_byte_array(),
+         Result :: {ok,      Source}
+                 | {project, Bundle}
+                 | {error,   Reason},
+         Source :: string(),
+         Bundle :: [{FilePath :: string(), Contents :: binary()}],
          Reason   :: chain_error() | string().
 %% @doc
 %% Retrieve the code of a contract as represented on chain.
@@ -805,7 +809,8 @@ extract(Blobby) ->
 
 extract2(TarBaby) ->
     case erl_tar:extract({binary, TarBaby}, [memory, compressed]) of
-        {ok, Project} -> {ok, Project};
+        {ok, Bundle} ->
+            {project, Bundle};
         Error ->
             io:format("Dis chit happen: ~tp~n", [Error]),
             {ok, TarBaby}