X-Git-Url: https://git.martlubbers.net/?p=cloogle-irc.git;a=blobdiff_plain;f=GenIRC.icl;fp=GenIRC.icl;h=e6dc8ec9ae1f6d1ed52844c279516bdcf7efe2da;hp=c8135769a5c93785b4b5b5aaf729c32e4068142b;hb=e831e0ee2f4317831cf86e3d34ebb9cc15d3f845;hpb=d8e24731b0019b32d0289977fc4620e12b0cd585 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)