On Thu, 12 Feb 2009, Ross Paterson wrote: > Here's a concrete suggestion: have Data.Binary.Put export the existing > function > > tell :: Builder -> Put > > and also > > execPut :: PutM a -> Builder > execPut = sndS . unPut This would be nice.