summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorLinus Nordberg <linus@nordberg.se>2015-05-11 11:21:55 +0200
committerLinus Nordberg <linus@nordberg.se>2015-05-11 11:21:55 +0200
commit8de1e4ac6a69cdbc8a67157688f724d63e78508d (patch)
treea1b9b2fffae32a5347f38dd2eabf1f5986dc6d46 /src
parente9881b073fc771a5969f19530794803f3692d55a (diff)
Fix CATLFISH-45.
https://project.nordu.net/browse/CATLFISH-45
Diffstat (limited to 'src')
-rw-r--r--src/catlfish.erl10
1 files changed, 4 insertions, 6 deletions
diff --git a/src/catlfish.erl b/src/catlfish.erl
index d1f4425..5865626 100644
--- a/src/catlfish.erl
+++ b/src/catlfish.erl
@@ -243,13 +243,11 @@ init_cache_table() ->
end,
ets:new(?CACHE_TABLE, [set, public, named_table]).
+deserialise_extra_data(<<>>) ->
+ [];
deserialise_extra_data(ExtraData) ->
- case decode_tls_vector(ExtraData, 3) of
- {E, <<>>} ->
- [E];
- {E, Rest} ->
- [E | deserialise_extra_data(Rest)]
- end.
+ {E, Rest} = decode_tls_vector(ExtraData, 3),
+ [E | deserialise_extra_data(Rest)].
chain_from_entry(Entry) ->
{MTLText, ExtraDataPacked} = unpack_entry(Entry),