Add a few basic functions for the repository

2012-08-13 23:53:31 +02:00
parent 23f6345043
commit 9cbf4024a0
3 changed files with 103 additions and 3 deletions
--- a/4
+++ b/4
@@ -14,6 +14,10 @@ main([Command|_Args]) ->
        [Object|_None] = _Rest,
        Exists = geef:object_exists(Path, Object),
        io:format("Exists: ~w~n", [Exists]);
+      "repo-path" ->
+	[Path|_Rest] = _Args,
+	Repo = geef:repository(Path),
+	io:format("Repository path: ~s~n", [geef:repository_path(Repo)]);
      _Else ->
        usage()
    end;