Empty .agner repos shouldn't cause failure listing other packages

agner · Feb 1, 2011 · 94bf977 · 94bf977
1 parent dce0686
commit 94bf977
Showing 1 changed file with 12 additions and 9 deletions.
diff --git a/src/agner_github.erl b/src/agner_github.erl
@@ -24,15 +24,18 @@ repositories(Page) ->
                 [] ->
                     [];
                 Repositories ->
-                    Repos = lists:filter(fun ({invalid,_}) ->
-                                         false;
-                                     (_) ->
-                                         true
-                                 end,
-                                 lists:map(fun ({struct, RepObject}) ->
-                                                   {repo_name(proplists:get_value(<<"name">>, RepObject)),
-                                                    proplists:get_value(<<"pushed_at">>, RepObject)}
-                                           end, Repositories)),
+                    Repos = lists:filter(fun 
+                                             ({_,undefined}) ->
+                                                 false;
+                                             ({invalid,_}) ->
+                                                 false;
+                                             (_) ->
+                                                 true
+                                         end,
+                                         lists:map(fun ({struct, RepObject}) ->
+                                                           {repo_name(proplists:get_value(<<"name">>, RepObject)),
+                                                            proplists:get_value(<<"pushed_at">>, RepObject)}
+                                                   end, Repositories)),
                     Repos ++ repositories(Page + 1)
             end
 	end.