// #Regression #Conformance #DataExpressions #ComputationExpressions 
// Regression test for FSHARP1.0:6149
//<Expects status="error" span="(18,3-18,6)" id="FS0708">This control construct may only be used if the computation expression builder defines a 'TryWith' method$</Expects>

type R = S of string 
 
type T() = 
  member x.Bind(p: R, rest: (string -> R)) =  
    match p with 
    | S(s) -> rest s 
  member x.Return() = S("l")
  member x.Zero() = S("l")

let t = new T()

let t' = t { 
  let! x = S("1")
  try 
     ()
  with 
  | _ -> ()
}
