From 296f73a4d63479735cb5af90a4f502ef2477aed4 Mon Sep 17 00:00:00 2001 From: Griffin Smith Date: Sun, 10 May 2020 20:38:56 -0400 Subject: 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) --- src/Xanthous/Game/Draw.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Xanthous/Game/Draw.hs') 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 -- cgit 1.4.1