Hello,

I am using ghc-7.6.3 and haskell-platform-2013.2.0.0 on slackware-14.0.
It seems there is a problem in the HWProtoInRoomState.hs file of hedgewars-src-0.9.20.5:
$ tar xvf hedgewars-src-0.9.20.5.tar.bz2
$ cd hedgewars-src-0.9.20
$ cmake . -DNOSERVER=0 -DCMAKE_INSTALL_PREFIX=/usr
$ cd gameServer
$ cabal update
$ cabal install
[...]
[17 of 22] Compiling HWProtoInRoomState ( HWProtoInRoomState.hs, dist/build/hedgewars-server/hedgewars-server-tmp/HWProtoInRoomState.o )

HWProtoInRoomState.hs:36:12:
Unexpected semi-colons in conditional:
if isSpecial rm then return
[Warning $ loc "Restricted"]; else if isMaster cl then
return
[ModifyRoom f,
AnswerClients
chans
("CFG" : paramName
: paramStrs)]
else
return
[ProtocolError
$ loc "Not room master"]
Perhaps you meant to use -XDoAndIfThenElse?
Failed to install hedgewars-server-0.1
cabal: Error: some packages failed to install:
hedgewars-server-0.1 failed during the building phase. The exception was:
ExitFailure 1

I found a way to solve the compile problem: editing the HWProtoInRoomState.hs file:
$ cat hedgewars-0.9.20.patch
diff -ruN hedgewars-src-0.9.20.old/gameServer/HWProtoInRoomState.hs hedgewars-src-0.9.20/gameServer/HWProtoInRoomState.hs
--- hedgewars-src-0.9.20.old/gameServer/HWProtoInRoomState.hs 2014-05-31 15:37:32.813264637 +0200
+++ hedgewars-src-0.9.20/gameServer/HWProtoInRoomState.hs 2014-05-31 15:39:02.278265397 +0200
@@ -32,20 +32,21 @@
chans <- roomOthersChans
cl <- thisClient
rm <- thisRoom
+ return [Warning $ loc "Restricted"]

- if isSpecial rm then
- return [Warning $ loc "Restricted"]
- else if isMaster cl then
- return [
- ModifyRoom f,
- AnswerClients chans ("CFG" : paramName : paramStrs)]
- else
- return [ProtocolError $ loc "Not room master"]
- where
- f r = if paramName `Map.member` (mapParams r) then
- r{mapParams = Map.insert paramName (head paramStrs) (mapParams r)}
- else
- r{params = Map.insert paramName paramStrs (params r)}
+ --if isSpecial rm then
+ -- return [Warning $ loc "Restricted"]
+ --else if isMaster cl then
+ -- return [
+ -- ModifyRoom f,
+ -- AnswerClients chans ("CFG" : paramName : paramStrs)]
+ -- else
+ -- return [ProtocolError $ loc "Not room master"]
+ --where
+ --f r = if paramName `Map.member` (mapParams r) then
+ -- r{mapParams = Map.insert paramName (head paramStrs) (mapParams r)}
+ -- else
+ -- r{params = Map.insert paramName paramStrs (params r)}


handleCmd_inRoom ("ADD_TEAM" : tName : color : grave : fort : voicepack : flag : difStr : hhsInfo)

I think it is not correct to comment like this but as I don't know anything of Haskell, I have no choice.
Do you see a better way to correct the code?

Thank you.
Best regards.