From 561aa6d45ed2c7dc6cd177bab5c31f6d8fccde66 Mon Sep 17 00:00:00 2001 From: pb Date: Sun, 28 Mar 2010 10:34:23 +0000 Subject: git-svn-id: https://ssl.buetow.org/repos/hsbot/trunk@44 9f8f72e9-4bf4-416e-b76e-7d4203597157 --- Cmd.hs | 16 ---------------- 1 file changed, 16 deletions(-) delete mode 100644 Cmd.hs (limited to 'Cmd.hs') 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) - -- cgit v1.2.3