From f8f3b283b2e5aa44c30b7594500e0ae6702ed9e5 Mon Sep 17 00:00:00 2001
From: Mark Wooding <mdw@distorted.org.uk>
Date: Mon, 16 Feb 2015 23:03:27 +0000
Subject: [PATCH] distorted.lisp, hosts.lisp: Entries for the new switches.

---
 distorted.lisp | 5 +++++
 hosts.lisp     | 3 +++
 2 files changed, 8 insertions(+)

diff --git a/distorted.lisp b/distorted.lisp
index b0d0d59..06090b4 100644
--- a/distorted.lisp
+++ b/distorted.lisp
@@ -226,6 +226,11 @@
   (evolution (safe :addr evolution.safe))
   (evolution :alias evo)
 
+  ;; Switches.
+  (tp0 (safe :addr tp0.safe))
+  (tp1 (safe :addr tp1.safe))
+  (tp2 (safe :addr tp2.safe))
+
   ;; Wired ethernet.
   (unsafe :net unsafe)
   (safe :net safe)
diff --git a/hosts.lisp b/hosts.lisp
index 50cd58a..27a09eb 100644
--- a/hosts.lisp
+++ b/hosts.lisp
@@ -96,6 +96,9 @@
 (defhost radius.safe (safe 1))
 (defhost vampire.safe (safe 2))
 (defhost evolution.safe ((:ipv4 safe 3)))
+(defhost tp0.safe (safe 4))
+(defhost tp1.safe (safe 5))
+(defhost tp2.safe (safe 6))
 
 ;; Wireless network.
 (defhost radius.untrusted (untrusted 1))
-- 
2.11.0