darcs
Darcs.Patch.Read
readPrim :: ParserM m => FileNameFormat -> m (Maybe (Sealed Prim))
readPatch :: ReadPatch p => ByteString -> Maybe (Sealed p, ByteString)