From 77a47a3749f9731b5acfd1e240aec0a1a67e6e9d Mon Sep 17 00:00:00 2001
From: tv <tv@shackspace.de>
Date: Mon, 28 Jul 2014 00:21:41 +0200
Subject: data Command += RingBell

---
 Main.hs | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'Main.hs')

diff --git a/Main.hs b/Main.hs
index 35df840..e574f73 100644
--- a/Main.hs
+++ b/Main.hs
@@ -118,6 +118,7 @@ data Command
   --      etc.
   | Combine Command Command
   | Nop
+  | RingBell
 
 instance Monoid Command where
     mempty = Nop
@@ -265,6 +266,7 @@ execCommand (Combine c1 c2) = do
 
 execCommand Nop = return ()
 
+execCommand RingBell = liftIO ringBell
 
 
 reform colorCode c =
-- 
cgit v1.2.3