prop_params :: I.Params -> Bool
prop_params ps =
  Just ps == maybeResult (feed (parse I.params (I.paramsToByteString ps)) mempty)
prop_params :: I.Params -> Bool
prop_params ps =
  Just ps == maybeResult (feed (parse I.params (I.paramsToByteString ps)) mempty)
prop_params ps =
  Just ps == maybeResult (feed (parse I.params (I.paramsToByteString ps)) mempty)