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

-- | Single user to Splice.
--
renderUser :: User -> I.Splice AppHandler
renderUser user = I.runChildrenWith $ foldSplices $
                     [ ("userEditable", hasEditPermissionSplice user)
                     --, ("userLastLoginAt", userLastLoginAtSplice $ _authUser user)
                     , ("isAuthUser", isAuthUserRetrieved $ _authUser user)
                     ]
                     ++
                     map (second I.textSplice)
                     [ ("userLogin",       maybe "" userLogin $ _authUser user)
                     , ("userEmail",       _userEmail user)
                     , ("userDisplayName", _userDisplayName user)
                     , ("userSite", fromMaybe "" $ _userSite user)
                     , ("userId", maybe "error-no-user-id-found" sToText $ getUserId' user)
                     ]
renderUser :: User -> I.Splice AppHandler
renderUser user = I.runChildrenWith $ foldSplices $
                     [ ("userEditable", hasEditPermissionSplice user)
                     --, ("userLastLoginAt", userLastLoginAtSplice $ _authUser user)
                     , ("isAuthUser", isAuthUserRetrieved $ _authUser user)
                     ]
                     ++
                     map (second I.textSplice)
                     [ ("userLogin",       maybe "" userLogin $ _authUser user)
                     , ("userEmail",       _userEmail user)
                     , ("userDisplayName", _userDisplayName user)
                     , ("userSite", fromMaybe "" $ _userSite user)
                     , ("userId", maybe "error-no-user-id-found" sToText $ getUserId' user)
                     ]
renderUser user = I.runChildrenWith $ foldSplices $
                     [ ("userEditable", hasEditPermissionSplice user)
                     --, ("userLastLoginAt", userLastLoginAtSplice $ _authUser user)
                     , ("isAuthUser", isAuthUserRetrieved $ _authUser user)
                     ]
                     ++
                     map (second I.textSplice)
                     [ ("userLogin",       maybe "" userLogin $ _authUser user)
                     , ("userEmail",       _userEmail user)
                     , ("userDisplayName", _userDisplayName user)
                     , ("userSite", fromMaybe "" $ _userSite user)
                     , ("userId", maybe "error-no-user-id-found" sToText $ getUserId' user)
                     ]