From b30f39b10f452e3e68087379416a838450736862 Mon Sep 17 00:00:00 2001
From: Mark Lemming <lemming@quirkyqatz.com>
Date: Sun, 16 Jun 2013 15:27:00 -0600
Subject: [PATCH] Deployed Bleeders can not have their upgrade cancelled.

---
 lib/Lacuna/RPC/Building/Development.pm | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/lib/Lacuna/RPC/Building/Development.pm b/lib/Lacuna/RPC/Building/Development.pm
index 1c0a43f0..7d2eccc3 100644
--- a/lib/Lacuna/RPC/Building/Development.pm
+++ b/lib/Lacuna/RPC/Building/Development.pm
@@ -102,6 +102,10 @@ sub cancel_build {
     if (not $scheduled_building->is_upgrading) {
         confess [1000, "That building is not currently being ugraded."];
     }
+    my @non_cancel = ('Lacuna::DB::Result::Building::DeployedBleeder');
+    if (grep { $scheduled_building->class eq "$_" } @non_cancel) {
+        confess [1003, "That building can not have an upgrade cancelled."];
+    }
     $scheduled_building->cancel_upgrade;
 
     return $self->view($args->{session_id}, $args->{building_id});
-- 
2.51.2