aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Makefile2
-rw-r--r--client/src/Client.elm5
-rw-r--r--server/cafp.cabal2
3 files changed, 4 insertions, 5 deletions
diff --git a/Makefile b/Makefile
index b74289b..79dc190 100644
--- a/Makefile
+++ b/Makefile
@@ -34,7 +34,7 @@ $(ELM_MESSAGES_SOURCE): stack_build
server/assets/client.js: $(ELM_MESSAGES_SOURCE) $(ELM_SOURCES)
mkdir -p server/assets
- cd client && elm make src/Client.elm --output=../server/assets/client.js
+ cd client && elm make src/Client.elm --optimize --output=../$@
server/assets/client.html: client/index.html config.mk
sed "s@\$$CAFP_BASE@$(CAFP_BASE)@" $< >$@
diff --git a/client/src/Client.elm b/client/src/Client.elm
index 7a6f333..0494140 100644
--- a/client/src/Client.elm
+++ b/client/src/Client.elm
@@ -224,9 +224,8 @@ update msg model = case msg of
WebSocketIn json ->
case Json.Decode.decodeString Messages.jsonDecServerMessage json of
Err str -> (Error <| Json.Decode.errorToString str, Cmd.none)
- Ok (Messages.Welcome playerId) ->
- Debug.log ("Welcome " ++ String.fromInt playerId) (model, Cmd.none)
- Ok Messages.Bye -> Debug.log "Bye" (model, Cmd.none)
+ Ok (Messages.Welcome playerId) -> (model, Cmd.none)
+ Ok Messages.Bye -> (model, Cmd.none)
Ok (Messages.SyncGameView gameView) ->
case model of
Game game -> (Game {game | view = gameView}, Cmd.none)
diff --git a/server/cafp.cabal b/server/cafp.cabal
index f80184c..0d6815c 100644
--- a/server/cafp.cabal
+++ b/server/cafp.cabal
@@ -54,5 +54,5 @@ Executable cafp-server
Hs-source-dirs: src
Main-is: Server.hs
Default-language: Haskell2010
- Ghc-options: -Wall
+ Ghc-options: -Wall -O2 -threaded -rtsopts "-with-rtsopts=-N"
Build-depends: base, cafp