Permalink
Browse files

Fix c.j.io/file usage.

  • Loading branch information...
1 parent 8d06b5a commit 21606560f88ea18da3d63383b252f32ae993038f Clojure committed May 13, 2011
Showing with 8 additions and 8 deletions.
  1. +1 −0 project.clj
  2. +7 −8 src/quickbeam/core.clj
View
@@ -2,4 +2,5 @@
:description "Clojure access to git."
:dependencies [[org.clojure/clojure "1.2.1"]
[org.eclipse.jgit "0.12.1"]]
+ :dev-dependencies [[slamhound "1.2.0-SNAPSHOT"]]
:repositories {"jgit" "http://download.eclipse.org/jgit/maven"})
View
@@ -1,15 +1,14 @@
(ns quickbeam.core
- (:require [clojure.java.io :as jio])
- (:import (org.eclipse.jgit.lib Repository)
- (org.eclipse.jgit.storage.file FileRepository)
- (org.eclipse.jgit.lib ObjectId)
- (org.eclipse.jgit.revwalk RevWalk)))
+ (:require [clojure.java.io :as io])
+ (:import (java.util Date)
+ (org.eclipse.jgit.revwalk RevWalk)
+ (org.eclipse.jgit.storage.file FileRepository)))
(defn find-repo [path]
- (when-let [git-dir (->> (.getAbsoluteFile (jio/file path))
+ (when-let [git-dir (->> (.getAbsoluteFile (io/file path))
(iterate #(.getParentFile %))
(take-while identity)
- (map #(file % ".git"))
+ (map #(io/file % ".git"))
(filter #(.exists %))
first)]
(FileRepository. git-dir)))
@@ -19,7 +18,7 @@
{:author (.toExternalString authorIdent)
:message fullMessage
:sha name
- :date (java.util.Date. (long (* 1000 commitTime)))}))
+ :date (Date. (long (* 1000 commitTime)))}))
(defn history
([repo-path]

0 comments on commit 2160656

Please sign in to comment.