 (defn board-resource [{:keys [datomic]} board-name]
   (liberator/resource
    :available-media-types ["application/edn" "application/json"]
-   :allowed-methods [:get :post]
+   :allowed-methods [:get]
    :exists? (fn [ctx]
               (if-let [board (d/query datomic
                                        '{:find [(pull ?board [:*]) .]

         (log/error e "fail to parse edn.")
         {:message (format "IOException: %s" (.getMessage e))})))))

(defn boards-resource [{:keys [datomic]}]
  (liberator/resource
   :available-media-types ["application/edn" "application/json"]
   :allowed-methods [:get]
   :handle-ok (fn [_]
                (d/query datomic
                         '{:find [[(pull ?board [:*]) ...]]

                                       board-name)]
                {::board board}
                false))
   :handle-ok (fn [ctx]
                (let [board (::board ctx)]
                  (->> (d/query datomic
