meta: reorganisation, rename "token" to "trackerId"

1 files changed, 7 insertions, 4 deletions

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