refactor(displayable): removed resolved TODOs

src/Handler/Utils/Table/Cells.hs

@@ -237,7 +237,7 @@ submissionCell crse shn sid =
       csh = crse ^. _3
       mkCid = encrypt sid
       mkRoute cid = CSubmissionR tid ssh csh shn cid SubShowR
-      mkText      = toWgt -- display2widget  -- TODO: replace with toWgt once there is a ToMarkup instance for CryptoIDs
+      mkText      = toWgt
   in anchorCellM' mkCid mkRoute mkText
 
 correctorStateCell :: IsDBTable m a => SheetCorrector -> DBCell m a

src/Model.hs

@@ -53,15 +53,10 @@ submissionRatingDone :: Submission -> Bool
 submissionRatingDone Submission{..} = isJust submissionRatingTime
 
 -- ToMarkup instances for displaying certain database primary keys
--- TODO: work in progress, populate with more instances
 -- TODO: is there a better place for this?
 
 instance ToMarkup (Key School) where
   toMarkup = toMarkup . unSchoolKey
 
 instance ToMarkup (Key Term) where
-  toMarkup = toMarkup . termToText . unTermKey
-
--- TODO: unfinished
--- instance ToMarkup (Key Submission) where
---   toMarkup = toMarkup . unSubmissionKey
+  toMarkup = toMarkup . termToText . unTermKey