mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Display messages in the order they were sent

Browse source 
Rather than displaying messages most-recent-first in the message box,
display them most-recent-last (which feels more natural)
This commit is contained in:
Griffin Smith 2020-05-10 20:38:56 -04:00
parent ce3730ba3a
commit 296f73a4d6
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Xanthous/Game/Draw.hs
View file

@ -43,7 +43,7 @@ cursorPosition game
= showCursor Resource.Character (game ^. characterPosition . loc) = showCursor Resource.Character (game ^. characterPosition . loc)
drawMessages :: MessageHistory -> Widget Name drawMessages :: MessageHistory -> Widget Name
drawMessages = txtWrap . (<> " ") . unwords . oextract drawMessages = txtWrap . (<> " ") . unwords . reverse . oextract
drawPromptState :: GamePromptState m -> Widget Name drawPromptState :: GamePromptState m -> Widget Name
drawPromptState NoPrompt = emptyWidget drawPromptState NoPrompt = emptyWidget