     (let [body          (-> request :body)
           [username _]  (sec/get-username-password request querier)
           user-id       (-> (items querier :user {:username username}) first :id)
-          programme     (-> request decode-body)]
+          programme     (-> request decode-body stringify-values)]
       {:programme-id (upsert! commander :programme (assoc programme :user-id user-id))}))
 
   :handle-created

               (do
                 (doseq [measurement measurements]
                   (let [t        (db-timestamp (get measurement "timestamp"))
                         m2       {:device-id device-id
                                   :type type
                                   :timestamp t
                                   :value (str (get measurement "value"))
                                   :error (get measurement "error")
                                   :month (get-month-partition-key t)
                                   :metadata "{}"}]
                     (->> m2

    (let [body          (-> request :body)
          [username _]  (sec/get-username-password request querier)
          user-id       (-> (items querier :user {:username username}) first :id)
          project       (-> request decode-body stringify-values)]
      {:project-id (upsert! commander :project (assoc project :user-id user-id))}))

  :handle-created
