X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=Lucu.git;a=blobdiff_plain;f=Network%2FHTTP%2FLucu%2FUtils.hs;h=d92516ee15875a6791fc912b8d11ebe1eb765ffb;hp=d6e46f180e1d2c61990979cd96506b48dcacb6c5;hb=636a3b3334f1ede61dc1e6faa2c4a021ea9bbd5c;hpb=7b3c7c2c5be4fc05ee03008aa0af56fab798e1bb diff --git a/Network/HTTP/Lucu/Utils.hs b/Network/HTTP/Lucu/Utils.hs index d6e46f1..d92516e 100644 --- a/Network/HTTP/Lucu/Utils.hs +++ b/Network/HTTP/Lucu/Utils.hs @@ -25,7 +25,7 @@ splitBy isSeparator src of (last , [] ) -> last : [] (first, sep:rest) -> first : splitBy isSeparator rest --- |> joinWith ':' ["ab", "c", "def"] +-- |> joinWith ":" ["ab", "c", "def"] -- > ==> "ab:c:def" joinWith :: [a] -> [[a]] -> [a] joinWith separator xs