diff options
author | Tom Willemse | 2014-07-25 22:27:41 +0200 |
---|---|---|
committer | Tom Willemse | 2014-07-25 22:27:41 +0200 |
commit | 2e6dcfd74ba08721048a6de000dc38becee213b6 (patch) | |
tree | 0c3dcff19a08ea9d498dbcfc24a9f6100ebb49e9 /upgrade-git.hy | |
parent | e0158bc47b3eb73d2c772f567b8029d851f29118 (diff) | |
download | hypo-2e6dcfd74ba08721048a6de000dc38becee213b6.tar.gz hypo-2e6dcfd74ba08721048a6de000dc38becee213b6.zip |
Update hy to 0.10.0
Diffstat (limited to 'upgrade-git.hy')
-rwxr-xr-x | upgrade-git.hy | 17 |
1 files changed, 9 insertions, 8 deletions
diff --git a/upgrade-git.hy b/upgrade-git.hy index 036f7c0..b0c5272 100755 --- a/upgrade-git.hy +++ b/upgrade-git.hy @@ -25,12 +25,13 @@ (sys.exit 1))) (def db - (kwapply (web.database) - {"dbn" "postgres" "user" *dbuser* "pw" *dbpw* "db" *dbname*})) + (apply web.database [] + {"dbn" "postgres" "user" *dbuser* "pw" *dbpw* "db" *dbname*})) (defun get-file [name] - (let ((res (kwapply (.select db "hfile" {"shash" name}) - {"where" "shash = $shash"}))) + (let ((res (apply .select + [db "hfile" {"shash" name}] + {"where" "shash = $shash"}))) (if res (car res)))) (foreach [f (os.listdir "files/")] @@ -42,7 +43,7 @@ (+ "files/" f "/" file.filename)) (let ((repo (Gittle.init (+ "files/" f)))) (.stage repo [(str file.filename)]) - (kwapply (repo.commit) - {"name" "System" - "email" "tom@ryuslash.org" - "message" "Initial commit for upgrade to git"})))) + (apply repo.commit [] + {"name" "System" + "email" "tom@ryuslash.org" + "message" "Initial commit for upgrade to git"})))) |