diff --git a/src/Client/Types.hs b/src/Client/Types.hs index 57175ed..9c6bc47 100644 --- a/src/Client/Types.hs +++ b/src/Client/Types.hs @@ -112,9 +112,9 @@ requirePermission scope permission = ifM (hasPermission scope permission) renderPermission ReadOnly = "lukuoikeuden" renderPermission None = "nollaoikeuden" renderScope OwnProfile = "omaan profiliin" - renderScope (Profile user) = "käyttäjän '" <> show user <> "' profiliin" + renderScope (Profile _) = "käyttäjän profiliin" renderScope OwnTokens = "omiin tokeneihin" -- TODO kunnon suomennos - renderScope (Tokens user) = "käyttäjän '" <> show user <> "' tokeneihin" -- TODO kunnon suomennos + renderScope (Tokens _) = "käyttäjän tokeneihin" -- TODO kunnon suomennos renderScope Members = "kaikkiin jäseniin" renderScope Applications = "jäsenhakemuksiin"