diff options
author | tv <tv@shackspace.de> | 2014-07-28 00:21:41 +0200 |
---|---|---|
committer | tv <tv@shackspace.de> | 2014-07-28 00:21:41 +0200 |
commit | 77a47a3749f9731b5acfd1e240aec0a1a67e6e9d (patch) | |
tree | 90e1e13fff2b6007c2eec5cc77c83c60eaa33afa | |
parent | baff597a7b274db01419e4b4a0ba3f428c78d288 (diff) |
data Command += RingBell
-rw-r--r-- | Main.hs | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -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 = |