setUid :: DefaultKey AuthUser -> AuthUser -> AuthUser
setUid k u = u { userId = Just $ UserId $ T.pack $ show $ keyToInt k }
setUid :: DefaultKey AuthUser -> AuthUser -> AuthUser
setUid k u = u { userId = Just $ UserId $ T.pack $ show $ keyToInt k }
setUid k u = u { userId = Just $ UserId $ T.pack $ show $ keyToInt k }