diff --git a/src/Model/Types/DateTime.hs b/src/Model/Types/DateTime.hs
index 97bceaae1..e6b2bdc51 100644
--- a/src/Model/Types/DateTime.hs
+++ b/src/Model/Types/DateTime.hs
@@ -71,14 +71,14 @@ shortened = iso shorten expand
 --   Handler.Utils.Widget.tidFromText
 --   MsgTermPlaceHolder
 termToText :: TermIdentifier -> Text
-termToText TermIdentifier{..} = tshow year -- ^. shortened
+termToText TermIdentifier{..} = tshow year ---- * (^. shortened)
 
 termFromText :: Text -> Either Text TermIdentifier
 termFromText t
   | Just year <- readMaybe $ Text.unpack t
   = Right TermIdentifier {..}
-  -- | Just (review shortened -> year) <- readMaybe $ Text.unpack t
-  -- = Right TermIdentifier {..}
+  ---- *  | Just (review shortened -> year) <- readMaybe $ Text.unpack t
+  ---- *  = Right TermIdentifier {..}
   | otherwise 
   = Left $ "Invalid TermIdentifier: “" <> t <> "”; expected is just a year number."