decodeFromServerMsg reqMap bytes = unP $ fromJust $ parseMaybe p obj
where obj = fromJust $ decode bytes :: Value
p = parseServerMessage $ \lid ->
decodeFromServerMsg reqMap bytes = unP $ fromJust $ parseMaybe p obj
where obj = fromJust $ decode bytes :: Value
p = parseServerMessage $ \lid ->