X-Git-Url: https://git.martlubbers.net/?p=cloogle-irc.git;a=blobdiff_plain;f=GenIRC.icl;h=e6dc8ec9ae1f6d1ed52844c279516bdcf7efe2da;hp=c8135769a5c93785b4b5b5aaf729c32e4068142b;hb=1c65613d8732d28f6c6c11864ccbc761918ac594;hpb=d1b0f20fbd85d85cee19347e7deda5e3a9251906 diff --git a/GenIRC.icl b/GenIRC.icl index c813576..e6dc8ec 100644 --- a/GenIRC.icl +++ b/GenIRC.icl @@ -1,19 +1,16 @@ implementation module GenIRC -from IRC import :: IRCCommand, :: CSepList(CSepList) -from Data.Func import $ -from StdFunc import o, const - -from Text.Parsers.Simple.Core import :: Error - -import StdList -import StdString +import StdEnv import StdGeneric + import Data.Either +import Data.Func +import Data.Functor import Data.Maybe import Data.Tuple -import Data.Functor -from Text import class Text(join,split,indexOf,concat), instance Text String +import Text + +import IRC pOne [] = (Left "Expected an argument", []) pOne [a:as] = (Right a, as)