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

main for F# ReaderVExample

added added

removed removed

type Program = {User : UserInfo; Settings : string -> string}

module Scaffold =

let main = 42

/// Succeed iff the program can be run.

let mustBeRunnable() =

rv.s { let! prg = rv.ask

return! rv.s.Combine(describeLong().Filter(fun _ -> vb),

describeShort())

.Contramap(fun p -> p.User) }

let mapGet (m: Map<'k, 'v>) k = m.Item(k)

let main (name, age, settings) =

describe().ButFirst(mustBeRunnable2())

.Run({User = {Name = name; Age = age};

Settings = mapGet settings})

.Fold(sprintf "ERROR: %s",

sprintf "Exception: %A",

id)