diff --git a/core/src/Datarekisteri/Core/Types.hs b/core/src/Datarekisteri/Core/Types.hs index 48d4d42..0b256a5 100644 --- a/core/src/Datarekisteri/Core/Types.hs +++ b/core/src/Datarekisteri/Core/Types.hs @@ -82,9 +82,7 @@ renderDate (Date x) = toText $ iso8601Show x addTime :: NominalDiffTime -> Time -> Time addTime diff (Time time) = Time $ addUTCTime diff time -data Scope = OwnProfile - | OwnTokens - | Profile UserID +data Scope = Profile UserID | Tokens UserID | Members | Applications