Display scenario for obtained achievement (#1175)

# 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)
swarm-game · Mar 24, 2023 · d52c36d · d52c36d
1 parent 7d7f291
commit d52c36d
Showing 1 changed file with 14 additions and 6 deletions.
diff --git a/src/Swarm/TUI/View/Achievement.hs b/src/Swarm/TUI/View/Achievement.hs
@@ -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