Promote -<> to clojure.core

marick · May 9, 2013 · 337b818 · 337b818
1 parent 8d73080
commit 337b818
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 3 deletions.
diff --git a/src/midje/clojure/core.clj b/src/midje/clojure/core.clj
@@ -3,6 +3,7 @@
   (:require clojure.pprint
             clojure.set
             utilize.seq
+            swiss-arrows.core
             midje.clojure.backwards-compatibility))
 
 ;; Note: some of this code is taken from https://github.com/flatland/useful/blob/develop/src/flatland/useful/ns.clj
@@ -165,6 +166,8 @@ metadata (as provided by def) merged into the metadata of the original."
                  ~result
                  (pred-cond ~item ~@preds+results))))
 
+(immigrate-from 'swiss-arrows.core '[-<>])
+
 ;;; Printing
 
 (immigrate-from 'clojure.pprint '[pprint cl-format])

diff --git a/src/midje/data/project_state.clj b/src/midje/data/project_state.clj
@@ -1,7 +1,6 @@
 (ns ^{:doc "What we know about the changing project file/namespace tree."}
   midje.data.project-state
   (:use midje.clojure.core
-        [swiss-arrows.core :only [-<>]]
         [bultitude.core :only [namespaces-in-dir namespaces-on-classpath]])
   (:require [midje.emission.boundaries :as emission-boundary]
             [midje.util.ecosystem :as ecosystem]

diff --git a/src/midje/parsing/1_to_explicit_form/facts.clj b/src/midje/parsing/1_to_explicit_form/facts.clj
@@ -12,8 +12,7 @@
                                                             against-background-facts-and-checks-wrappers
                                                             ]]
         [midje.parsing.1-to-explicit-form.metaconstants :only [predefine-metaconstants-from-form]]
-        [midje.util.laziness :only [eagerly]]
-        [swiss-arrows.core :only [-<>]])
+        [midje.util.laziness :only [eagerly]])
   (:require [clojure.zip :as zip]
             [midje.parsing.util.zip :as pzip]
             [midje.parsing.util.overrides :as override]