Don't attempt to parse CBOR record to blob ref

Author: futurGH

mist/lib/lex.ml

@@ -99,8 +99,8 @@ let repo_record_to_cbor_block (record : repo_record) =
 
 let of_cbor encoded : repo_record =
   let decoded = Dag_cbor.decode encoded in
-  match of_ipld decoded with
-  | `LexMap m ->
-      m
+  match decoded with
+  | `Map m ->
+      String_map.map of_ipld m
   | _ ->
       raise (Failure "Decoded non-record value")