   (:import (java.io File))
   (:require [clojure.java.io :as io])
   (:use [clojure.set :only (union)]
-        [clojure.string :only (split)]
+        [clojure.string :only (split upper-case)]
         [clojure.xml :only (parse)]
         [cljsearch.fileutil :only (expand-path get-ext)]))
 

    (binary-file? f) :binary
    (archive-file? f) :archive
    :else :unknown))

;;; ############################################################################
;;;
;;; filetypes.clj
;;;
;;; Utility functions for getting file extension and determining file type
;;;
