← Back to branch summary

~scompall/+junk/linq-resources--mainline

« back to all changes in this revision

Viewing changes to Nocandy.LinqResources.FS/ReaderV.fs

  • Committer: Stephen Compall
  • Date: 2012-10-22 03:05:57 UTC
  • Revision ID: scompall@nocandysw.com-20121022030557-esttwjuhk0dyosbd
Filter for ReaderVs.

Show diffs side-by-side

added added

removed removed

Lines of Context:
Nocandy.LinqResources.FS/ReaderV.fs
47
47
    member v.ButFirst (ef: ReaderV<'r, 'e, 'u>) =
48
48
        ef.Product(v).Contramap(fun s -> (s, s)).Map snd
49
49
 
 
50
    /// Fail if the condition fails.
 
51
    member v.Filter p =
 
52
        v.ButFirst(ReaderV(fun r -> mystery.s { if p r then return () }))
 
53
 
50
54
type ReaderVBuilder() =
51
55
    /// Supports let!, do!.
52
56
    member z.Bind(m: ReaderV<'r, 'e, 'a>,