Fixed broken indices chaining

nuex · Feb 25, 2011 · 36799d9 · 36799d9
1 parent c5560cb
commit 36799d9
Show file tree

Hide file tree

Showing 3 changed files with 12 additions and 3 deletions.
diff --git a/rebar b/rebar
diff --git a/src/agner_github.erl b/src/agner_github.erl
@@ -193,7 +193,12 @@ spec_1(Account, RepoServer,  AtFilename) ->
                 {ok, S} = file:consult(AtFilename),
                 S
         end,
-    agner_spec:normalize(Spec).
+    case Spec of
+        {error, _} = Error ->
+            Error;
+        _ ->
+            agner_spec:normalize(Spec)
+    end.
 
 spec_url(Account, Name, SHA1) ->
     "https://github.com/" ++ proper_repo_name(Account, Name) ++ "/blob/" ++ SHA1 ++ "/agner.config".

diff --git a/src/agner_repo_server.erl b/src/agner_repo_server.erl
@@ -73,7 +73,6 @@ clone(Pid, Fun) ->
 file(Pid, Filename) ->
     gen_server:call(Pid, {file, Filename}).
 
-
 %%%===================================================================
 %%% gen_server callbacks
 %%%===================================================================
@@ -139,7 +138,12 @@ handle_call({clone, Fun}, _From, #state{ directory = undefined, name = Name, ver
                                                                                                    ok
                                                                                            end)
                                          end),
-    {reply, Result, State#state{ directory = Directory }};
+    case Result of 
+        ok ->
+            {reply, ok, State#state{ directory = Directory }};
+        _ ->
+            {reply, Result, State}
+    end;
 
 handle_call({clone, _Fun}, _From, #state{} = State) -> %% already cloned
     {reply, ok, State};