diff options
author | Griffin Smith <root@gws.fyi> | 2020-05-11T00·38-0400 |
---|---|---|
committer | Griffin Smith <root@gws.fyi> | 2020-05-11T00·38-0400 |
commit | 296f73a4d63479735cb5af90a4f502ef2477aed4 (patch) | |
tree | c8bef5986c8e060cab65cec71340f91637cf6e0e /src | |
parent | ce3730ba3a5831e590dd9cc037649eb49e2f0804 (diff) |
Display messages in the order they were sent
Rather than displaying messages most-recent-first in the message box, display them most-recent-last (which feels more natural)
Diffstat (limited to 'src')
-rw-r--r-- | src/Xanthous/Game/Draw.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Xanthous/Game/Draw.hs b/src/Xanthous/Game/Draw.hs index a9b55945ffa6..659081e5731b 100644 --- a/src/Xanthous/Game/Draw.hs +++ b/src/Xanthous/Game/Draw.hs @@ -43,7 +43,7 @@ cursorPosition game = showCursor Resource.Character (game ^. characterPosition . loc) drawMessages :: MessageHistory -> Widget Name -drawMessages = txtWrap . (<> " ") . unwords . oextract +drawMessages = txtWrap . (<> " ") . unwords . reverse . oextract drawPromptState :: GamePromptState m -> Widget Name drawPromptState NoPrompt = emptyWidget |