data Command += RingBell

1 files changed, 2 insertions, 0 deletions

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 =