diff options
| author | Linus Nordberg <linus@nordberg.se> | 2015-05-11 11:21:55 +0200 |
|---|---|---|
| committer | Linus Nordberg <linus@nordberg.se> | 2015-05-11 11:21:55 +0200 |
| commit | 8de1e4ac6a69cdbc8a67157688f724d63e78508d (patch) | |
| tree | a1b9b2fffae32a5347f38dd2eabf1f5986dc6d46 | |
| parent | e9881b073fc771a5969f19530794803f3692d55a (diff) | |
Fix CATLFISH-45.
https://project.nordu.net/browse/CATLFISH-45
| -rw-r--r-- | src/catlfish.erl | 10 |
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), |