blob: 7de643e7565793b8f8c318a2c0e062c8476fa68c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
module HsBot.Cmd where
import HsBot.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)
|
