about summary refs log tree commit diff
diff options
context:
space:
mode:
authorGriffin Smith <root@gws.fyi>2020-05-11T00·38-0400
committerGriffin Smith <root@gws.fyi>2020-05-11T00·38-0400
commit296f73a4d63479735cb5af90a4f502ef2477aed4 (patch)
treec8bef5986c8e060cab65cec71340f91637cf6e0e
parentce3730ba3a5831e590dd9cc037649eb49e2f0804 (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)
-rw-r--r--src/Xanthous/Game/Draw.hs2
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