aph5nt

let something = 
  1 + 1

aph5nt

  let findOk result item = 
        result 
        |> successTee (fun (obj, msgs) ->
            let found = msgs |> List.toSeq |> Seq.tryFind (fun(m) -> m = item)
            match found with
            | Some msg -> msg |> should be (sameAs item)
            | None -> failwith(sprintf "%s not found" item)
        )

    let findFailure result item = 

aph5nt

ddddddd

aph5nt

 let compileScript(state : State) =
        if(state.hasStartupScript = false) then Success(state, [])
        else
            try
                if File.Exists(outputAssembly) then
                    File.Delete(outputAssembly)

                let provider = new FSharpCodeProvider()
                let params'= CompilerParameters()
                params'.GenerateExecutable <- false