Display scenario for obtained achievement

swarm-game · Mar 24, 2023 · dde34ad · dde34ad
1 parent bde44b4
commit dde34ad
Showing 1 changed file with 14 additions and 8 deletions.
diff --git a/src/Swarm/TUI/View/Achievement.hs b/src/Swarm/TUI/View/Achievement.hs
@@ -86,14 +86,20 @@ singleAchievementDetails attainedMap x =
       , case M.lookup x attainedMap of
           Nothing -> emptyWidget
           Just attainment ->
-            padTop (Pad 1) $
-              hBox
-                [ txt "Obtained: "
-                , withAttr cyanAttr $
-                    str $
-                      formatTime defaultTimeLocale "%l:%M%P on %b %e, %Y" $
-                        attainment ^. obtainedAt
-                ]
+            padTop (Pad 1) $ 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
             [ txt "Effort: "