diff options
| author | pb <pb@9f8f72e9-4bf4-416e-b76e-7d4203597157> | 2010-05-15 18:12:50 +0000 |
|---|---|---|
| committer | pb <pb@9f8f72e9-4bf4-416e-b76e-7d4203597157> | 2010-05-15 18:12:50 +0000 |
| commit | 65503932a10e1fba9b92736add48e5f873807705 (patch) | |
| tree | 6a01affc0271b6742e15eed3c6b1d08e642e8927 /HsBot | |
| parent | c675c92a06761d6b28f8fdda8cc418b64a040c9a (diff) | |
formatted the source code.
git-svn-id: https://ssl.buetow.org/repos/hsbot/trunk@68 9f8f72e9-4bf4-416e-b76e-7d4203597157
Diffstat (limited to 'HsBot')
| -rw-r--r-- | HsBot/Plugins.hs | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/HsBot/Plugins.hs b/HsBot/Plugins.hs index 28e1de2..2fa337c 100644 --- a/HsBot/Plugins.hs +++ b/HsBot/Plugins.hs @@ -18,11 +18,11 @@ registeredPlugins = [ pluginsTrigger :: String -> SendMessage -> Env -> IO Env pluginsTrigger str sendMessage env@(Env state _) - | isReady state = pluginsAll registeredPlugins env - | otherwise = do { putStrLn str; return (env) } - where - pluginsAll [] env = return (env) - pluginsAll (plugin:restPlugins) env = do - env' <- (cbFunction plugin) str sendMessage env - pluginsAll restPlugins env' + | isReady state = pluginsAll registeredPlugins env + | otherwise = do { putStrLn str; return (env) } + where + pluginsAll [] env = return (env) + pluginsAll (plugin:restPlugins) env = do + env' <- (cbFunction plugin) str sendMessage env + pluginsAll restPlugins env' |
