From 2d46e5039efff682294e9ccc4751bbfa3a88768f Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Stefan=20B=C3=BChler?= Date: Wed, 23 Jun 2010 14:01:11 +0200 Subject: [PATCH] Fix list encoding --- Encoding.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Encoding.hs b/Encoding.hs index ae9529b..f4f9110 100644 --- a/Encoding.hs +++ b/Encoding.hs @@ -105,7 +105,7 @@ instance Encode a => Encode [a] where _ -> fail "Unexpected end of stream" sencode [] = [T0] sencode [x] = T1:sencode x - sencode xs = (sencode $ length xs - 2) ++ concat (map sencode xs) + sencode xs = T2:T2:(sencode $ length xs - 2) ++ concat (map sencode xs) instance Encode Int where sdecode = do