From 00b43501612224cb32a6cde6c3c97d2e39b49d59 Mon Sep 17 00:00:00 2001
From: pb <pb@9f8f72e9-4bf4-416e-b76e-7d4203597157>
Date: Sun, 14 Mar 2010 15:00:19 +0000
Subject: git-svn-id: https://ssl.buetow.org/repos/hsbot/trunk@29
 9f8f72e9-4bf4-416e-b76e-7d4203597157

---
 Cmd.hs | 10 ++++++++++
 1 file changed, 10 insertions(+)
 create mode 100644 Cmd.hs

diff --git a/Cmd.hs b/Cmd.hs
new file mode 100644
index 0000000..d4c617a
--- /dev/null
+++ b/Cmd.hs
@@ -0,0 +1,10 @@
+module Cmd where
+
+import State
+
+data Cmd = Cmd String String (State -> IO ()) 
+
+instance Show Cmd where 
+   show (Cmd a b _) = a ++ " - " ++ b
+
+
-- 
cgit v1.2.3