swarm-game/swarm
1
1
Fork 0
mirror of https://github.com/swarm-game/swarm.git synced 2024-09-11 14:46:33 +03:00
Code Issues Projects Releases Wiki Activity

Display scenario for obtained achievement (#1175)

Browse Source 
# Before
![image](https://user-images.githubusercontent.com/261693/227453439-b08afe02-07f1-40dd-9688-9d77dcef7989.png)
# After
![image](https://user-images.githubusercontent.com/261693/227454441-925cecf8-042c-46a6-8fd3-ef749ad50fad.png)
This commit is contained in:
Karl Ostmo 2023-03-24 10:35:01 -07:00 committed by GitHub
parent 7d7f291450
commit d52c36d05c
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 14 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
src/Swarm/TUI/View/Achievement.hs
View File

@ -87,12 +87,20 @@ singleAchievementDetails attainedMap x =
Nothing -> emptyWidget
Just attainment ->
padTop (Pad 1) $
hBox
[ txt "Obtained: "
, withAttr cyanAttr $
str $
formatTime defaultTimeLocale "%l:%M%P on %b %e, %Y" $
attainment ^. obtainedAt
vBox
[ hBox
[ txt "Obtained: "
, withAttr cyanAttr $
str $
formatTime defaultTimeLocale "%l:%M%P on %b %e, %Y" $
attainment ^. obtainedAt
]
, flip (maybe emptyWidget) (attainment ^. maybeScenarioPath) $ \s ->
hBox
[ txt "Scenario: "
, withAttr cyanAttr $
str s
]
]
, padTop (Pad 1) $
hBox