X-Git-Url: http://git.cielonegro.org/gitweb.cgi?a=blobdiff_plain;f=Network%2FHTTP%2FLucu%2FUtils.hs;h=9212747d9cf4ea782491240f1c8e201c29715dc4;hb=f62b6f07bbf1eefcf552163d8f7daa6e0862ed5d;hp=6b749a80c8aefb448be43b06908961713ba428c1;hpb=3d017dd65ddede9a11c5b7a34a91e04340e67bc4;p=Lucu.git

diff --git a/Network/HTTP/Lucu/Utils.hs b/Network/HTTP/Lucu/Utils.hs
index 6b749a8..9212747 100644
--- a/Network/HTTP/Lucu/Utils.hs
+++ b/Network/HTTP/Lucu/Utils.hs
@@ -19,7 +19,7 @@ import Prelude hiding (last)
 splitBy :: (a -> Bool) -> [a] -> [[a]]
 splitBy isSep src
     = case break isSep src
-      of (last , []       ) -> last  : []
+      of (last , []       ) -> [last]
          (first, _sep:rest) -> first : splitBy isSep rest
 
 -- |> joinWith ":" ["ab", "c", "def"]