fraport/fradrive
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix(haddock): fix accidental haddock comments

Browse Source
This commit is contained in:
Steffen Jost 2022-06-14 18:17:08 +02:00
parent 94fb7f7ae0
commit 882ca7c582
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/Model/Types/DateTime.hs
View File

@ -71,14 +71,14 @@ shortened = iso shorten expand
-- Handler.Utils.Widget.tidFromText -- Handler.Utils.Widget.tidFromText
-- MsgTermPlaceHolder -- MsgTermPlaceHolder
termToText :: TermIdentifier -> Text termToText :: TermIdentifier -> Text
termToText TermIdentifier{..} = tshow year -- ^. shortened termToText TermIdentifier{..} = tshow year ---- * (^. shortened)
termFromText :: Text -> Either Text TermIdentifier termFromText :: Text -> Either Text TermIdentifier
termFromText t termFromText t
| Just year <- readMaybe $ Text.unpack t | Just year <- readMaybe $ Text.unpack t
= Right TermIdentifier {..} = Right TermIdentifier {..}
-- | Just (review shortened -> year) <- readMaybe $ Text.unpack t ---- * | Just (review shortened -> year) <- readMaybe $ Text.unpack t
-- = Right TermIdentifier {..} ---- * = Right TermIdentifier {..}
| otherwise | otherwise
= Left $ "Invalid TermIdentifier: “" <> t <> "”; expected is just a year number." = Left $ "Invalid TermIdentifier: “" <> t <> "”; expected is just a year number."