 (defn float-serializer [value]
   (str value))
 
-(defn define-float [name default help & args]
+(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))

  (str value))

(defn define-integer [name default help & args]
  (apply define integer-parser name default (or help "an integer value")
         :serializer integer-serializer
         args))

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

(defn define-enum
  "Registers a flag whose value can be any string from enum_values."
  [name default enum-values help & args]
  (apply define enum-parser name default  (or help "an enum value")
         :serializer enum-serializer
         :enum-values enum-values
