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