From 882ca7c5828fbf42fa9d08a5cb545fc2fd8bbba5 Mon Sep 17 00:00:00 2001
From: Steffen Jost <jost@tcs.ifi.lmu.de>
Date: Tue, 14 Jun 2022 18:17:08 +0200
Subject: [PATCH] fix(haddock): fix accidental haddock comments

---
 src/Model/Types/DateTime.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

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."