PokeNeige
/
game
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Make the code compatible with base==4.9

This commit is contained in:
Tissevert 2018-12-21 10:14:18 +01:00
parent 5966beed85
commit f8dc186e17
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pokeNeige.cabal
View File

@ -39,7 +39,7 @@ executable pokeNeige
, Pokemon.Type , Pokemon.Type
, Tool.Array , Tool.Array
-- other-extensions: -- other-extensions:
build-depends: base >=4.11 && <4.12 build-depends: base >=4.9 && <4.12
, aeson , aeson
, bytestring , bytestring
, containers , containers

2
src/Automaton.hs
View File

@ -29,7 +29,7 @@ edges Empty Client.NewGame = return $ Game {
edges Empty (Client.Resume {Client.game}) = return game edges Empty (Client.Resume {Client.game}) = return game
edges game message = do edges game message = do
let errorMessage = "inacceptable message " <> encode message <> " in this context" let errorMessage = "inacceptable message " `mappend` encode message `mappend` " in this context"
send (Server.Error $ unpack errorMessage) send (Server.Error $ unpack errorMessage)
log errorMessage log errorMessage
return game return game