     *ns*))
 
 
+(defn string-parser [flag argument]
+  argument)
+
 (defn define-string
   "Registers a flag whose value can be any string."
   [name default help & args]
   (apply define string-parser name default help
-         :serializer string-serializer
          args))
 
 

      (throw (Exception.
              (str "Could not parse as float: \"" argument "\""))))))

(defn float-serializer [value]
  (str value))

(defn define-float
  "Registers a flag whose value must be a float."
  [name default help & args]
  (apply define float-parser name default (or help "a float value")
         :serializer float-serializer
         args))



     present
     namespace
     parser
     allow-override])


(defn define-flag [flag ns]
