git-svn-id: https://ssl.buetow.org/repos/hsbot/trunk@44 9f8f72e9-4bf4-416e-b76e-7d4203597157

1 files changed, 0 insertions, 16 deletions

diff --git a/Cmd.hs b/Cmd.hs
deleted file mode 100644
index 3e85e86..0000000
--- a/Cmd.hs
+++ /dev/null
@@ -1,16 +0,0 @@
-module Cmd where
-
-import State
-
-data Cmd = Cmd String String (State -> IO ()) 
-
-instance Show Cmd where 
-   show (Cmd a b _) = a ++ " - " ++ b
-
-cmdGet :: String -> [Cmd] -> Maybe Cmd
-cmdGet x commands = 
-   let command = [ (Cmd a b c) | (Cmd a b c) <- commands, a == x ]
-    in if length command == 0
-         then Nothing
-         else Just (head command)
-