remove loop
This commit is contained in:
parent
7b42c16dfc
commit
5c875a7080
@ -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}
|
||||||
|
Loading…
x
Reference in New Issue
Block a user