From 65503932a10e1fba9b92736add48e5f873807705 Mon Sep 17 00:00:00 2001 From: pb Date: Sat, 15 May 2010 18:12:50 +0000 Subject: formatted the source code. git-svn-id: https://ssl.buetow.org/repos/hsbot/trunk@68 9f8f72e9-4bf4-416e-b76e-7d4203597157 --- HsBot/Plugins.hs | 14 +++++++------- 1 file 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' -- cgit v1.2.3