2 files changed, 8 insertions, 5 deletions
diff --git a/lib/Yesod/Auth/Uffd.hs b/lib/Yesod/Auth/Uffd.hs
index 4d5e5af..8dd0548 100644
--- a/lib/Yesod/Auth/Uffd.hs
+++ b/lib/Yesod/Auth/Uffd.hs
@@ -64,7 +64,7 @@ uffdClient url clientId clientSecret =
                }
   where oauth2 = OAuth2
           { oauth2ClientId = clientId
-          , oauth2ClientSecret = Just clientSecret
+          , oauth2ClientSecret = {- Just -} clientSecret
           , oauth2AuthorizeEndpoint =
               url { uriPath = "/oauth2/authorize" }
           , oauth2TokenEndpoint =
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