Skip to content

Instantly share code, notes, and snippets.

@robsimmons
Created October 22, 2011 19:23
Show Gist options
  • Save robsimmons/1306390 to your computer and use it in GitHub Desktop.
Save robsimmons/1306390 to your computer and use it in GitHub Desktop.
Conductor, actually running with git magic
- val {get, poll} = Conductor.package "/tmp/smackage" "rob-toy";
val get = fn : SemVer.semver -> unit
val poll = fn : unit -> (string * SemVer.semver) list
- poll ();
val it =
[("02d584bf0b14704e98efc324efe6d05fb31ce4af",(0,0,1,NONE)),
("23597de0addda54e21d89b70f6c70ae2da75d7b8",(0,1,0,NONE)),
("139359d7589ca69aebfada148d8d4ad191bdeb74",(1,0,0,NONE)),
("0669dd7562bad0f580a0016d7b5ac88af9182512",(1,1,0,NONE)),
("bea772c3886a881a7a02023c89e05881a7a7ce3f",(1,1,1,NONE)),
("bea772c3886a881a7a02023c89e05881a7a7ce3f",(2,0,0,SOME "alpha"))]
: (string * SemVer.semver) list
- OS.FileSys.mkDir "/tmp/smackage/rob-toy/v2.0.0alpha";
val it = () : unit
- get (SemVer.fromString "2.0.0alpha");
Changing directory: `/tmp/smackage/rob-toy`
Changing directory: `/tmp/smackage/rob-toy/git-repo`
Running: `git fetch --tags`
Running: `git pull origin master`
From git://github.com/robsimmons/toy
* branch master -> FETCH_HEAD
Already up-to-date.
Running: `git archive v2.0.0alpha --format tar > ../v2.0.0alpha/v2.0.0alpha.tar.gz`
Changing directory: `/tmp/smackage/rob-toy/v2.0.0alpha`
Running: `tar xzvf v2.0.0alpha.tar.gz`
x .gitignore
x README
x foo.sml
x sources.cm
x sources.mlb
val it = () : unit
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment