@@ -44,8 +44,7 @@ encodeStreamWith :: ToRecord a
4444 => EncodeOptions -- ^ Encoding options.
4545 -> OutputStream ByteString -- ^ Downstream.
4646 -> IO (OutputStream a) -- ^ New @OutputStream@.
47−encodeStreamWith ops output =
48− makeOutputStream $ dispatch (encodeWith ops) output
47+encodeStreamWith ops = makeOutputStream . dispatch (encodeWith ops)
4948
5049--------------------------------------------------------------------------------
5150-- | Create a new @OutputStream@ which can be fed @ToNamedRecord@
@@ -70,8 +69,8 @@ encodeStreamByNameWith :: ToNamedRecord a
7069 -> Header -- ^ CSV Header.
7170 -> OutputStream ByteString -- ^ Downstream.
7271 -> IO (OutputStream a) -- ^ New @OutputStream@.
73−encodeStreamByNameWith ops hdr output =
74− makeOutputStream $ dispatch (encodeByNameWith ops hdr) output
72+encodeStreamByNameWith ops hdr =
73+ makeOutputStream . dispatch (encodeByNameWith ops hdr)
7574
7675--------------------------------------------------------------------------------
7776-- | Do the actual encoding.