werewolf 0.4.3.1 → 0.4.3.2
raw patch · 4 files changed
+40/−4 lines, 4 files
Files
- CHANGELOG.md +27/−0
- app/Werewolf/Commands/Help.hs +1/−1
- src/Game/Werewolf/Response.hs +11/−2
- werewolf.cabal +1/−1
CHANGELOG.md view
@@ -2,6 +2,13 @@ #### Upcoming +#### v0.4.3.2++*Revisions*++* Fixed grammar for the `currentStageMessages`. ([#83](https://github.com/hjwylde/werewolf/issues/83))+* Fixed the `heal` command help message to not require a `PLAYER` argument. ([#82](https://github.com/hjwylde/werewolf/issues/82))+ #### v0.4.3.1 *Revisions*@@ -14,6 +21,13 @@ * Added the Defender role. ([#38](https://github.com/hjwylde/werewolf/issues/38)) +#### v0.4.2.3++*Revisions*++* Fixed grammar for the `currentStageMessages`. ([#83](https://github.com/hjwylde/werewolf/issues/83))+* Fixed the `heal` command help message to not require a `PLAYER` argument. ([#82](https://github.com/hjwylde/werewolf/issues/82))+ #### v0.4.2.2 *Revisions*@@ -32,6 +46,13 @@ * Added the Villager-Villager role. ([#37](https://github.com/hjwylde/werewolf/issues/37)) +#### v0.4.1.3++*Revisions*++* Fixed grammar for the `currentStageMessages`. ([#83](https://github.com/hjwylde/werewolf/issues/83))+* Fixed the `heal` command help message to not require a `PLAYER` argument. ([#82](https://github.com/hjwylde/werewolf/issues/82))+ #### v0.4.1.2 *Revisions*@@ -49,6 +70,12 @@ *Minor* * Added the Witch role. ([#5](https://github.com/hjwylde/werewolf/issues/5))++#### v0.4.0.1++*Revisions*++* Fixed grammar for the `currentStageMessages`. ([#83](https://github.com/hjwylde/werewolf/issues/83)) #### v0.4.0.0
app/Werewolf/Commands/Help.hs view
@@ -62,7 +62,7 @@ commandsMessages :: [Text] commandsMessages = [ "end - ends the current game."- , "heal PLAYER - heal a devoured player."+ , "heal - heal a devoured player." , "pass - pass on healing or poisoning a player." , "ping - pings the status of the current game publicly." , "poison PLAYER - poison a player."
src/Game/Werewolf/Response.hs view
@@ -283,10 +283,19 @@ currentStageMessages to GameOver = [gameIsOverMessage to] currentStageMessages _ Sunrise = [] currentStageMessages _ Sunset = []- -- TODO (hjw): pluralise this correctly for the Seer currentStageMessages to turn = [privateMessage to $ T.concat [- "It's currently the ", T.pack $ show turn, "' turn."+ "It's currently the ", showTurn turn, " turn." ]]+ where+ showTurn :: Stage -> Text+ showTurn DefendersTurn = "Defender's"+ showTurn GameOver = undefined+ showTurn SeersTurn = "Seer's"+ showTurn Sunrise = undefined+ showTurn Sunset = undefined+ showTurn VillagesTurn = "Village's"+ showTurn WerewolvesTurn = "Werewolves'"+ showTurn WitchsTurn = "Witch's" rolesInGameMessage :: Maybe Text -> [Role] -> Message rolesInGameMessage mTo roles = Message mTo $ T.concat [
werewolf.cabal view
@@ -1,5 +1,5 @@ name: werewolf-version: 0.4.3.1+version: 0.4.3.2 author: Henry J. Wylde maintainer: public@hjwylde.com