                                        (:hosted card)))
                  :msg (msg "install " (:title target) " lowering its install cost by 1 [Credits]")
                  :effect (effect
-                           (install-cost-bonus -1) (runner-install (dissoc target :facedown))
+                           (install-cost-bonus [:credit -1]) (runner-install (dissoc target :facedown))
                            (trash (update-in card [:hosted]
                                              (fn [coll]
                                                (remove-once #(not= (:cid %) (:cid target)) coll)))


   "Eden Shard"
   {:abilities [{:effect (effect (trash card {:cause :ability-cost}) (draw :corp 2))
                 :msg "force the Corp to draw 2 cards"}]}

   "Enhanced Vision"
   {:events {:successful-run {:msg (msg "force the Corp to reveal " (:title (first (shuffle (:hand corp)))))

   "Utopia Shard"
   {:abilities [{:effect (effect (trash-cards :corp (take 2 (shuffle (:hand corp))))
                                 (trash card {:cause :ability-cost}))
                 :msg "force the Corp to discard 2 cards from HQ at random"}]
    :install-cost-bonus (req (if (and run (= (:server run) [:hq]) (= 0 (:position run)))
                               [:credit -7 :click -1] nil))
    :effect (req (when (and run (= (:server run) [:hq]) (= 0 (:position run)))
                   (swap! state update-in [:runner :prompt] rest)
                   (handle-end-run state side)))}

   "Virus Breeding Ground"
   {:data {:counter-type "Virus"}
