From b1e9361bb152e15ebb7d909e6da49694993bb385 Mon Sep 17 00:00:00 2001 From: Karl Ostmo Date: Tue, 24 Jan 2023 16:45:57 -0800 Subject: [PATCH] add issue reference --- src/Swarm/Game/Scenario/Objective/Presentation/Model.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/src/Swarm/Game/Scenario/Objective/Presentation/Model.hs b/src/Swarm/Game/Scenario/Objective/Presentation/Model.hs index 8d0e3daa76..e86d9bc82f 100644 --- a/src/Swarm/Game/Scenario/Objective/Presentation/Model.hs +++ b/src/Swarm/Game/Scenario/Objective/Presentation/Model.hs @@ -1,4 +1,5 @@ {-# LANGUAGE TemplateHaskell #-} +{-# LANGUAGE NoGeneralizedNewtypeDeriving #-} -- A UI-centric model for Objective presentation. module Swarm.Game.Scenario.Objective.Presentation.Model where @@ -39,7 +40,7 @@ data GoalStatus Failed deriving (Show, Eq, Ord, Bounded, Enum, Generic, ToJSON, ToJSONKey) --- | TODO Could also add an "ObjectiveFailed" constructor... +-- | TODO: #1044 Could also add an "ObjectiveFailed" constructor... newtype Announcement = ObjectiveCompleted Objective deriving (Show, Generic, ToJSON) @@ -52,7 +53,7 @@ data GoalEntry data GoalTracking = GoalTracking { announcements :: [Announcement] - -- ^ TODO (#916) the actual contents of these are not used yet, + -- ^ TODO: #1044 the actual contents of these are not used yet, -- other than as a flag to pop up the Goal dialog. , goals :: CategorizedGoals }