From 5f27e441f47f2565b941b321a9939d54357e1654 Mon Sep 17 00:00:00 2001 From: stuebinm Date: Thu, 16 Apr 2026 01:23:50 +0200 Subject: meta: reorganisation, rename "token" to "trackerId" --- lib/Yesod/Orphans.hs | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) (limited to 'lib/Yesod/Orphans.hs') diff --git a/lib/Yesod/Orphans.hs b/lib/Yesod/Orphans.hs index f66f8af..dc5c77a 100644 --- a/lib/Yesod/Orphans.hs +++ b/lib/Yesod/Orphans.hs @@ -27,14 +27,17 @@ instance ToMarkup Day where instance ToMessage UTCTime where toMessage = formatW3 -instance ToMessage Token where - toMessage (Token uuid) = UUID.toText uuid +instance ToMessage TrackerId where + toMessage (TrackerKey uuid) = UUID.toText uuid instance ToMarkup UTCTime where toMarkup = toMarkup . formatW3 -instance ToMarkup Token where - toMarkup (Token uuid) = toMarkup (UUID.toText uuid) +instance ToMarkup TrackerId where + toMarkup (TrackerKey uuid) = toMarkup (UUID.toText uuid) + +instance ToMarkup UUID where + toMarkup uuid = toMarkup (UUID.toText uuid) instance ToMessage Double where toMessage = T.pack . show -- cgit v1.2.3