wrath/shaniqua-core
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

remove loop

Browse Source
This commit is contained in:
Jon Doe 2020-09-28 23:20:37 +02:00 committed by Maciej Bonin
parent 7b42c16dfc
commit 5c875a7080
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/GypsFulvus/PluginStuff.hs
View File

@ -26,7 +26,9 @@ stripCommandPrefix'
stripCommandPrefix' c ccs m sig = case stripCommandPrefix c ccs of stripCommandPrefix' c ccs m sig = case stripCommandPrefix c ccs of
Right c -> return c Right c -> return c
Left cs -> do 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 return Nothing
tp :: String -> T.Text tp :: String -> T.Text
@ -74,7 +76,7 @@ makeNetworkIdentStyleAutor n i h c = NetworkIdentStyleAutor n (IrcMask i h) c
data Sewage = Sewage { data Sewage = Sewage {
getSewageAutor :: SewageAutorInfo, getSewageAutor :: SewageAutorInfo,
getSewage :: T.Text getSewage :: T.Text
} } deriving Show
data Manhole = Manhole { data Manhole = Manhole {
getInputChan :: TChan Sewage, getInputChan :: TChan Sewage,
getOutputChan :: TChan Sewage} getOutputChan :: TChan Sewage}