prop_signal :: Signal -> Bool
prop_signal sig =
  let encodedSignal = encode sig
      len           = payloadSize sig
  in (asInt len) == LBS.length encodedSignal
     && sig == decode encodedSignal
prop_signal :: Signal -> Bool
prop_signal sig =
  let encodedSignal = encode sig
      len           = payloadSize sig
  in (asInt len) == LBS.length encodedSignal
     && sig == decode encodedSignal
prop_signal sig =
  let encodedSignal = encode sig
      len           = payloadSize sig
  in (asInt len) == LBS.length encodedSignal
     && sig == decode encodedSignal