diff --git a/src/Game/Game.fsproj b/src/Game/Game.fsproj index 589a770..67b6245 100644 --- a/src/Game/Game.fsproj +++ b/src/Game/Game.fsproj @@ -5,7 +5,7 @@ - + diff --git a/src/Server/Program.fs b/src/Server/Program.fs index 66e2362..1ede707 100644 --- a/src/Server/Program.fs +++ b/src/Server/Program.fs @@ -22,6 +22,7 @@ open Game.Game let moveHandler (next: HttpFunc) (ctx: HttpContext) = task { let! cmd = ctx.BindJsonAsync() + printfn "%O" cmd |> ignore Current.cmd cmd |> ignore return! (json Current.JSON) next ctx } @@ -32,6 +33,7 @@ let webApp = choose [ route "/" >=> htmlFile "WebRoot/index.html" route "/map" >=> json Current.JSON + route "/test" >=> json (Move South) ] POST >=> choose [ diff --git a/src/Server/Server.fsproj b/src/Server/Server.fsproj index 1840246..448b5f2 100644 --- a/src/Server/Server.fsproj +++ b/src/Server/Server.fsproj @@ -10,7 +10,7 @@ - + diff --git a/src/Server/WebRoot/index.html b/src/Server/WebRoot/index.html index d71ff1c..ba839e6 100644 --- a/src/Server/WebRoot/index.html +++ b/src/Server/WebRoot/index.html @@ -9,7 +9,12 @@ Dis my dumb game - South + + North + South + East + West +