From 5c875a7080733e9527fbe64c1137a373858903cc Mon Sep 17 00:00:00 2001 From: Jon Doe Date: Mon, 28 Sep 2020 23:20:37 +0200 Subject: [PATCH] remove loop --- src/GypsFulvus/PluginStuff.hs | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/src/GypsFulvus/PluginStuff.hs b/src/GypsFulvus/PluginStuff.hs index be6c73e..9238490 100644 --- a/src/GypsFulvus/PluginStuff.hs +++ b/src/GypsFulvus/PluginStuff.hs @@ -26,7 +26,9 @@ stripCommandPrefix' stripCommandPrefix' c ccs m sig = case stripCommandPrefix c ccs of Right c -> return c Left cs -> do - sew <- regift (Sewage sig (if L.null cs then ("No such command: " ♯ c) else ("Found multiple matching commands: " ♯ ((L.foldr1 (\h ng -> h ♯ ", " ♯ ng)) $ (map (fromMaybe "")) cs)))) m + sew <- do + putStrLn . show $ (Sewage sig (if L.null cs then ("No such command: " ♯ c) else ("Found multiple matching commands: " ♯ ((L.foldr1 (\h ng -> h ♯ ", " ♯ ng)) $ (map (fromMaybe "")) cs)))) + return Nothing return Nothing tp :: String -> T.Text @@ -74,7 +76,7 @@ makeNetworkIdentStyleAutor n i h c = NetworkIdentStyleAutor n (IrcMask i h) c data Sewage = Sewage { getSewageAutor :: SewageAutorInfo, getSewage :: T.Text - } + } deriving Show data Manhole = Manhole { getInputChan :: TChan Sewage, getOutputChan :: TChan Sewage}