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