
12 Feb
2009
12 Feb
'09
9:40 a.m.
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