TODO

fisx · akshaymankar · commit 49a4f1f2ea26 · 2025-04-03T09:36:51.000+02:00
diff --git a/libs/zauth/src/Data/ZAuth/Token.hs b/libs/zauth/src/Data/ZAuth/Token.hs
@@ -135,6 +135,9 @@ data Access = Access
   }
   deriving (Eq, Show)
 
+-- TODO: call this 'ClientToken' and 'Access' 'ClientAccessToken'?  anyway it's more of a
+-- client device than a user, so 'User' is definitely wrong.  also probably rename more stuff
+-- that follows the same obsolete pattern?
 data User = User
   { user :: !UUID,
     client :: Maybe Text,

Original file line number	Diff line number	Diff line change
`@@ -135,6 +135,9 @@ data Access = Access`
`135`	`135`	`}`
`136`	`136`	`deriving (Eq, Show)`
`137`	`137`
	`138`	`+-- TODO: call this 'ClientToken' and 'Access' 'ClientAccessToken'? anyway it's more of a`
	`139`	`+-- client device than a user, so 'User' is definitely wrong. also probably rename more stuff`
	`140`	`+-- that follows the same obsolete pattern?`
`138`	`141`	`data User = User`
`139`	`142`	`{ user :: !UUID,`
`140`	`143`	`client :: Maybe Text,`