putText :: S.Putter Text
putText txt = S.put (BS.length bs) >> S.putByteString bs
  where
    bs = T.encodeUtf8 txt
putText :: S.Putter Text
putText txt = S.put (BS.length bs) >> S.putByteString bs
  where
    bs = T.encodeUtf8 txt
putText txt = S.put (BS.length bs) >> S.putByteString bs
  where
    bs = T.encodeUtf8 txt