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

aph5nt

ddddddd

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

let something = 
  1 + 1

aph5nt

let initGames() =
        let table = new Database.dbo.Tables.Game()
        table.Clear()
        table.AcceptChanges()
        table.AddRow("My First Game", DateTime.UtcNow.AddHours(-1.00), DateTime.UtcNow.AddHours(1.00), DateTime.UtcNow.AddHours(2.00), Some(10000L))
        table.AcceptChanges()
        table.Dispose() |> ignore
        ignore

aph5nt

<?xml version="1.0" encoding="utf-8" ?>
<configuration>
  <configSections>
    <section name="akka" type="Akka.Configuration.Hocon.AkkaConfigurationSection, Akka" />
  </configSections>

  <akka>
    <hocon>
      <![CDATA[
    akka {

aph5nt

let filter (game : Game) = game.Status = GameStatus.Refunded || game.Status = GameStatus.Completed
games 
|> toSeq
|> Seq.filter(fun(k,v) -> filter v)
|> Seq.map(fun(k,v) -> v)
|> Seq.sortByDescending(fun(v) -> v.DrawingAt) 
|> Seq.map (fun(v) -> toPreviousGame v) 
|> Seq.toArray

aph5nt

module Actors = 

    type MailBox  = Eventsourced<GameCommand, obj, State>
    let Logger = Serilog.Log.Logger

    let update state (evnt : obj) = state
    type Apply = MailBox -> State -> obj -> State

    let apply : Apply = fun m s e -> s //(mailbox : MailBox)  (state : State)  (evnt : obj) = state
 

aph5nt

namespace Amplify

open WebSharper
open WebSharper.JavaScript
open WebSharper.InterfaceGenerator
open WebSharper.JQuery
 
module Definition =

    let DefineRequestType =

aph5nt

namespace Application2

open WebSharper
open WebSharper.JavaScript
open WebSharper.UI.Next
open WebSharper.UI.Next.Client
open WebSharper.UI.Next.Html
open WebSharper.JQuery
open WebSharper.Amplify