isAuthUserRetrieved (Just authusr) =
  I.runChildrenWithText $ do
  "lastLoginTime" ## formatUTCTimeMaybe $ userLastLoginAt authusr
  "createdAt" ## formatUTCTimeMaybe $ userCreatedAt authusr

----------------------------------------------------------------------------

-- | Has Edit premission when either current user is Admin or Author.
--
isAuthUserRetrieved (Just authusr) =
  I.runChildrenWithText $ do
  "lastLoginTime" ## formatUTCTimeMaybe $ userLastLoginAt authusr
  "createdAt" ## formatUTCTimeMaybe $ userCreatedAt authusr

----------------------------------------------------------------------------

-- | Has Edit premission when either current user is Admin or Author.
--
isAuthUserRetrieved (Just authusr) =
  I.runChildrenWithText $ do
  "lastLoginTime" ## formatUTCTimeMaybe $ userLastLoginAt authusr
  "createdAt" ## formatUTCTimeMaybe $ userCreatedAt authusr

----------------------------------------------------------------------------

-- | Has Edit premission when either current user is Admin or Author.
--