Permalink
Browse files

Add an indefinite article to some generated text

  • Loading branch information...
1 parent 1d0f5f5 commit b591c1fb30c7b0f6068002998a36b85abfa9d2f7 @Mikolaj Mikolaj committed Dec 10, 2012
Showing with 5 additions and 6 deletions.
  1. +1 −1 Game/LambdaHack/Action/HighScore.hs
  2. +1 −1 Game/LambdaHack/Actions.hs
  3. +2 −3 Game/LambdaHack/EffectAction.hs
  4. +1 −1 README.md
@@ -138,6 +138,6 @@ register configUI write total time date status = do
else "")
Restart -> ("abortive", " (score halved)")
msg = "Your" <+> msgCurrent <+> "exploits award you place >>"
- <+> showT pos <+> "<<" <+> msgUnless
+ <+> showT pos <+> "<<" <+> msgUnless <> "."
when write $ save configUI h'
return (msg, slideshow pos h' height)
@@ -424,7 +424,7 @@ actorAttackActor source target = do
[ MU.SubjectVerbSg (partActor coactor sm) verb
, partActor coactor tm ]
++ if tell
- then ["with", partItem coitem state stack]
+ then ["with", MU.AW $ partItem coitem state stack]
else []
msgMiss = makeSentence
[ MU.SubjectVerbSg (partActor coactor sm) "try to"
@@ -420,9 +420,8 @@ discover i = do
modify (updateDiscoveries (S.insert ik))
state2 <- get
let msg = makeSentence
- [ "the"
- , MU.SubjectVerbSg (partItem coitem state i) "turn out to be"
- , partItem coitem state2 i ]
+ [ "the", MU.SubjectVerbSg (partItem coitem state i) "turn out to be"
+ , MU.AW $ partItem coitem state2 i ]
msgAdd msg
-- | Make the actor controlled by the player. Switch level, if needed.
View
@@ -65,7 +65,7 @@ Compatibility notes
-------------------
The current code was tested with GHC 7.6.1, but probably works with GHC > 7.2.
-A [few tweaks] [7] are needed to compile with 7.0.
+A [few tweaks] [6] are needed to compile with 7.0.
If you are using the curses or vty frontends,
numerical keypad may not work correctly depending on the versions

0 comments on commit b591c1f

Please sign in to comment.